[VBA ] 逐列判斷重複
看板Visual_Basic作者ShakingMilk (MillKerrr XD)時間4年前 (2019/11/08 19:14)推噓0(0推 0噓 0→)留言0則, 0人參與討論串1/2 (看更多)
各位好,
假設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
想請各位幫忙看一下該...怎麼下迴圈讓他逐列作判定?
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.231.135.76 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1573211691.A.114.html
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：