for I = 1 To UBound（RNG）‘？皇族永不言棄（Royal Never Give Up 電子競技俱樂部）
d（RNG（I，1）= RNG（I，2）‘？rng？
接下來我
圖紙（“CAD”）。選擇？“CAD“
rng1 =範圍（【a2】，【e6000】）。end（xlUp））‘？a2？e？rng1
對於l = 1到UBound（RNG 1）‘？rng1
k = k+1‘
ReDim Preserve arr（1到6，1到k）
arr（1，k）= RNG 1（l，1）
arr（2，k）= RNG 1（l，2）
arr（3，k）= RNG 1（l，3）
arr（4，k）= RNG 1（l，4）
arr（5，k）= d（RNG 1（l，1））
arr（6，k）= RNG 1（l，5）‘？
下壹個l
範圍（“g2”）。value =“:“& amp；k & amp"?"g2？
工作表（““）。選擇？""
【a1】。resize（k，6）=應用程序。轉置（arr）‘？arr？a1？k？6?
rng2 =範圍（“a1“）。當前區域？a1？rng2