將i = 1的d = CreateObject(" scripting . dictionary ")設置為UBound(rng) d(rng(i，1)) = rng(i，2

For i = 1 To UBound(rng)'rng？

d(rng(i，1)) = rng(i，2)'rng？

接下來我

圖紙(“CAD”)。選擇？"計算機輔助設計"

rng1 =範圍([a2]，[e6000])。End(xlUp))'？a2？e？rng1

對於l = 1到UBound(rng1)'rng1？

k = k + 1 '？

ReDim Preserve arr(1到6，1到k)arr？

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)'？

下壹個l

範圍(“g2”)。Value = "？:" & ampk & amp""'?柵級Ⅱ

工作表(" ")。選擇？""

【a1】。Resize(k，6) =應用程序。轉置(arr)'？arr？a1k？六

rng2 =範圍(" a1 ")。當前區域？a1rng2