统计A字符串与B字符串中重复数??

Question

aa 字符串　r,s,x1,y1,y2,y3,z1,z3
bb 字符串  s,t,x1,x2,y1,y3,z2
通过统计，找到重复数为s,x1,y1,y3

Answer 1

Option Explicit
'个人认为最快的方法
Private Sub Command1_Click()
  Dim aa As String
  Dim bb As String
  
  aa = "r,s,x1,y1,y2,y3,z1,z3"
  bb = "s,t,x1,x2,y1,y3,z2"  
  Dim Arr() As String
  
  Arr = Split(aa, ",")
  
  Dim i As Long
  Dim txt As String
  
  For i = 0 To UBound(Arr)
     txt = bb
     bb = Replace(bb, Arr(i) & ",", "")
     If txt <> bb Then
        MsgBox Arr(i)
     End If
  Next
End Sub

Answer 2

用split把它分成数组
再一个一个比就行，

Answer 3

呵呵，挑下刺，单就你的代码思路来想，你上面的代码已不是最快的方法，因为bb的元素比aa少。

Answer 4

而且有时会漏判啊，例如：aa = "r,s,x1,y1,y2,y3,z1,z3,z4,dd"
bb = "s,t,x1,x2,y1,y3,z2,z4t,dd"找不到dd。