Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(rng)
d(rng(i, 1)) = rng(i, 2)
Next i
Sheets("CAD").Select
rng1 = Range([a2], [e6000].End(xlUp))
For l = 1 To UBound(rng1)
k = k + 1
ReDim Preserve arr(1 To 6, 1 To k)
arr(1, k) = rng1(l, 1)
arr(2, k) = rng1(l, 2)
arr(3, k) = rng1(l, 3)
arr(4, k) = rng1(l, 4)
arr(5, k) = d(rng1(l, 1))
arr(6, k) = rng1(l, 5)
Next l
Range("g2").Value = "当前坐标数为:" & k & "条记录"
Sheets("合并记录").Select
[a1].Resize(k, 6) = Application.Transpose(arr)
rng2 = Range("a1").CurrentRegion
谁帮我解释下什么意思,谢谢了