Excel VBA二维数组 如何查询其中的重复数据

你好解决问题如下，不要忘记给最佳答案啊。

Sub AA()

Dim X, Y, K, M

Dim ARR, BRR, CRR

Dim D As Object

Set D = CreateObject("scripting.dictionary")

BRR = Range("B2:B8")

For X = 1 To UBound(BRR)

CRR = VBA.Split(BRR(X, 1), ",")

For M = 0 To UBound(CRR)

D(CRR(M)) = D(CRR(M)) + 1

Next

Next

K = 1

For X = 2 To 8

ARR = VBA.Split(Cells(X, 2), ",")

For Y = 0 To UBound(ARR)

If D(ARR(Y)) > 1 Then

Range("B" & X).Characters(K, Len(ARR(Y))).Font.ColorIndex = 3

End If

K = K + Len(ARR(Y)) + 1

Next

K = 1

Next

End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vffxvy73fx7revrex3j.html