|
发表于 2013-1-16 20:14
|
显示全部楼层
本楼为最佳答案
- Sub Test2()
- Dim A, B, C
- Dim i, j, k, n, s
- Dim str1$, str2$
-
- A = [a2:b2]
- B = Range("c3:c" & Range("c65536").End(xlUp).Row)
- ReDim C(1 To UBound(B) * 2, 1 To 1) As String
- For i = 1 To UBound(A, 2)
- For j = 1 To UBound(B)
- n = 0
- str1 = CStr(B(j, 1))
- For k = 1 To Len(CStr(B(j, 1)))
- str2 = Mid(CStr(B(j, 1)), k, 1)
- If InStr(A(1, i), str2) Then n = n + 1
- '避免检查重数,形如:335,355
- str1 = VBA.Replace(str1, str2, "")
- If Len(str1) + k <> 3 Then Exit For
- Next k
- If n = 3 Then
- s = s + 1
- C(s, 1) = B(j, 1)
- End If
- Next j
- Next i
- Columns(6).ClearContents
- [f2].Resize(s) = C
- End Sub
复制代码 |
|