|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub TEST()
Dim xR As Range, xD, X
Set xD = CreateObject("Scripting.Dictionary")
For Each xR In Range([E10], [E65536].End(xlUp))
X = Val(Replace(Trim(xR), ".", 0))
If Val(xR(1, 2)) > 0 And X > 0 Then xD(X) = xR(1, 2)
Next
For Each xR In Range("B8:B36")
If xR(1, 2).HasFormula Then GoTo 101
X = Val(Replace(Trim(xR), ".", 0))
If xD(X) > 0 Then xR(1, 2) = xD(X) Else xR(1, 2) = ""
101: Next
End Sub
Xl0000476.rar
(17.52 KB, 下载次数: 5)
只做取值示意方法, 不知合不合, 跨檔抓源表則自行處理~~
|
|