Question

用EXCEL做例如满足，A1=123 ，A2=234，组合成1234。去掉重复的2和3

公式做不了,vba程序改怎么写呢 ？

Answer 1

1. 公式为：

   =IFERROR(IF(FIND("0",A1&B1),0),"")&IFERROR(IF(FIND("1",A1&B1),1),"")&IFERROR(IF(FIND("2",A1&B1),2),"")&IFERROR(IF(FIND("3",A1&B1),3),"")&IFERROR(IF(FIND("4",A1&B1),4),"")&IFERROR(IF(FIND("5",A1&B1),5),"")&IFERROR(IF(FIND("6",A1&B1),6),"")&IFERROR(IF(FIND("7",A1&B1),7),"")&IFERROR(IF(FIND("8",A1&B1),8),"")&IFERROR(IF(FIND("9",A1&B1),9),"")
   

2. 如下图所示：

追问

我的意思是按照出现数字的顺序排列，后面出了前面的就清掉， 你这种的最终结果无非就是0123456789

追答

公式做不了你要求的情况。

Answer 2

这个用公式很难实现，要用vba程序。

给你做了一个VBA函数

Public Function MergeText(c1 As Range, c2 As Range) As String

Dim s1 As String, s2 As String, ss As String

Dim i As Integer, sLen As Integer

s1 = c1.Text

s2 = c2.Text

sLen = Len(s2)

For i = 1 To sLen

    ss = Mid(s2, i, 1)

    s1 = Replace(s1, ss, "")

Next i

MergeText = s1 & s2

End Function
 
Alt+F11打开VBA编辑器，然后插入一个模块，把代码复制到模块中 
然后在EXCEL中写入公式就可以了，比如C8=MERGETEXT(A8,B8)

追问

结果已经出来了。但因为有很多行， 用vba函数自动带出的结果来老是出错， 每次都得复制粘贴才能恢复，这个什么原因呢