[VBA ] 逐列判断重复

楼主: ShakingMilk (MillKerrr XD)   2019-11-08 19:14:49
各位好,
假设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
想请各位帮忙看一下该...怎么下循环让他逐列作判定?
谢谢

Links booklink

Contact Us: admin [ a t ] ucptt.com