用VBA数组或字典挑选相同

laoau128

用VBA数组或字典挑选相同

cflood

Sub a()
Set d = CreateObject("Scripting.Dictionary")
arr = Range("B1:C" & Range("A65536").End(xlUp).Row)
Dim brr
ReDim brr(1 To UBound(arr) / 2, 1 To 5)
For i = 2 To UBound(arr)
If d.exists(arr(i, 2)) Then
If arr(i, 1) <> arr(d(arr(i, 2)), 1) Then
k = k + 1
brr(k, 1) = arr(i, 1)
brr(k, 2) = arr(i, 2)
brr(k, 3) = i
brr(k, 4) = arr(d(arr(i, 2)), 1)
brr(k, 5) = d(arr(i, 2))
End If
Else
d(arr(i, 2)) = i
End If
Next i
Range("E20").Resize(k, 5) = brr
End Sub

laoau128

cflood 发表于 2017-6-21 09:03
Sub a()
Set d = CreateObject("Scripting.Dictionary")
arr = Range("B1:C" & Range("A65536").End(xlUp ...

有人回答就好了

cflood

laoau128 发表于 2017-6-21 09:28
有人回答就好了

根据你的能力，有的问题值得回答，有的问题你完全有能力自己做