數據變暗，溫度，排列
尺寸d
昏暗的i & amp，k & amp
Set d = createobject("腳本。字典")'來創建字典。
數據= [a1]。' CurrentRegion '將A1所在的區域寫入數組。
For i = 2 To UBound(data)'循環遍歷數組。
d(數據(I，1)& amp；" ")= data(i，2)'將數據(I，1)放入數組& " "寫入字典，賦data(i，2)的值。
然後
Temp = [d1]。“CurrentRegion”在臨時數組中寫入d1所在的區域。
Redimar (2到Ubound (temp)，1到1)'重新定義數組arr的大小。
For k = 2到UBound(temp)'在數組中循環。
Arr (k，1) = d(temp(k，1))'將字典中d(temp(k，1))對應的值賦給Arr(k，1)，這是第二列有data(i，2)。
然後
[E2]。resize (ubound (arr)-1，1) = arr '將數組arr輸出到單元格。
設置d =無
末端接頭