各位好,
假設A~E欄五個值中有兩個會重複 在G欄抓出重複的那個值
舉例如下
A B C D E G欄
X B C B E B
D A A C H A
V A B B C B
C E X X R X
D C A H A A
新手...我自己摸索著寫了一版
Sub Test()
Set Db = CreateObject("scripting.dictionary")
For d = 1 To 5
arr = Range("a" & d & ":e" & d)
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
If Db.exists(arr(i, j)) Then
Range("g" & d) = arr(i, j)
Else
Db(arr(i, j)) = True
End If
Next j
Next i
Next d
End Sub
但測試時發現這樣判定...他判定重複的時候不是一列一列往下判定
而是直接抓取整個A1~E5的Range範圍去判定重複@@
想過是不是下loop? 但是試不出來QQ
想請各位幫忙看一下該...怎麼下迴圈讓他逐列作判定?
謝謝