作者ShakingMilk (MillKerrr XD)
看板Visual_Basic
标题[VBA ] 逐列判断重复
时间Fri Nov 8 19:14:49 2019
各位好,
假设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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1573211691.A.114.html