[已解决]Excel高手快来用VBA解决包含多少个

vbyou127

Excel高手快来用VBA解决包含多少个

最佳答案

月排行榜 / 总排行榜

dsmch

2016-3-28 18:14

1. Sub Macro1()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. For Each c In [h8:m8]
   
4.     d(c.Value) = ""
   
5. Next
   
6. For Each c In [a8:f8]
   
7.    If d.exists(c.Value) Then s = s + 1
   
8. Next
   
9. [p8] = s
   
10. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. For Each c In [h8:m8]
   
4.     d(c.Value) = ""
   
5. Next
   
6. For Each c In [a8:f8]
   
7.    If d.exists(c.Value) Then s = s + 1
   
8. Next
   
9. [p8] = s
   
10. End Sub

复制代码

爱疯

'前提：A和B，不含重复元素
Sub test()
    Dim A, B, C, j
    A = [H8:M8]
    B = [A8:F8]
    ReDim C(1 To 99)

    For j = 1 To UBound(A, 2)
        C(A(1, j)) = -1
        C(B(1, j)) = 1
    Next j

    [p8] = Application.Sum(C)
End Sub

爱疯

3楼还有别的局限性，只为想点别的思路。