如何用VBA代码查找重复值的位置

bryce1995 · 发表于 2022-12-24 22:47

本帖最后由 bryce1995 于 2022-12-25 17:13 编辑

如何用VBA代码快速查找G列内容在表格中的具体位置,填上不同颜色, 并复制同样颜色到sheet2的同样位置?

sheet1

sheet2

笨鸟飞不高 · 发表于 2022-12-25 09:24

Book1.zip (15.38 KB, 下载次数: 11)

准提部林 · 发表于 2022-12-25 10:23

例子太少, 未考慮大量數據//

Sub TEST_A1()
Dim xR As Range, xD, CC
Application.ScreenUpdating = False
Set xD = CreateObject("Scripting.Dictionary")
For Each xR In Sheet1.[g2:g5]
xD(xR & "") = xR.Interior.ColorIndex
Next
For Each xR In Sheet1.[B2:E6]
CC = Val(xD(xR & ""))
xR.Interior.ColorIndex = CC
Sheet2.Range(xR.Address).Interior.ColorIndex = CC
Next
End Sub

笨鸟飞不高 · 发表于 2022-12-25 11:10

book1.zip (17.45 KB, 下载次数: 9)

gwjkkkkk · 发表于 2022-12-25 12:55

请楼主参考附件。。。

nicleyuan · 发表于 2022-12-25 13:24

bryce1995 · 发表于 2022-12-25 16:25

本帖最后由 bryce1995 于 2022-12-25 16:29 编辑

准提部林发表于 2022-12-25 10:23
例子太少, 未考慮大量數據//

Sub TEST_A1()

感谢回复, 还想请问下 xD(xR & "") 中的 & "" 是什么意思? 字典语法不是 xD("A") 这样的吗?

KAI19 · 发表于 2022-12-25 16:31

新人作品，支持一下

准提部林 · 发表于 2022-12-25 17:27

bryce1995 发表于 2022-12-25 16:25
感谢回复, 还想请问下 xD(xR & "") 中的 & "" 是什么意思? 字典语法不是 xD("A") 这样的吗?

xR是Range, 直接 xD(xR) 是用不了的,
必須用 xD(xR.value)
xD(xR & "") ,則是強制以"文本"為key

		自动登录	找回密码
密码			免费注册

[已解决] 如何用VBA代码查找重复值的位置

评分