定義兩個整數變量。
暗淡？r%，？我%
定義兩個變量。
暗淡？啊？壓力感受器反射反應
定義工作表對象變量。
暗淡？ws？作為？工作表
定義壹個對象變量。
暗淡？d？作為？目標
由VBS創建壹個字典對象不是壹個好方法，所以建議在工具和參考中添加它。
‘‘微軟？腳本？運行時組件，然後可以進行強類型編碼，例如
’‘暗淡？d？作為？新的？腳本編寫。詞典
設置？d？=?CreateObject(" scripting . dictionary ")
遍歷此工作簿中的所有工作表。
為了什麽？每個？ws？在？工作表
如果工作表的標簽是“匯總表”
如果？ws。名字？& lt& gt？“匯總表”？然後
鎖定當前工作表對象的ws變量，並對其執行短名稱操作。
用什麽？《華盛頓明星報》
獲取ws工作表底行的行號。
r？=?。單元格(Rows.Count，2).結束(xlUp)。排
將“A2:D最大使用行數”區域中的所有單元格分配給arr變量。
在分配了' ' arr之後，它是壹個包含該區域中所有單元格值的數組。
arr？=?。Range("a2:d "？& amp？r)
遍歷這個數組。
為了什麽？我？=?1?去哪？欠奉
檢查第I行第壹列的單元格的值是否不為空。
如果？Len(arr(i，1))?& lt& gt？0?然後
如果不為空，則將其賦給sbm變量。這裏沒有明確的聲明。註意。
sbm？=?arr(我，？1)
結束？如果
檢查字典中是否不存在第壹行第二列單元格的值。
如果？不是嗎？d .存在(arr(i，2))?然後
將brr重新定義為索引號為1-3的動態數組。
雷迪姆？brr(1？去哪？3)
將第I行第2列的單元格值保存在brr數組的第壹個元素中。
brr(1)？=?arr(我，？2)
將第I行第4列的值連接到brr數組的第二個元素。
brr(2)？=?brr(2)？+?arr(我，？4)
將上述sbm的值，即第I行第1列單元格的值，保存在brr數組的第三個元素中。
brr(3)？=?單浮筒系泊
其他
如果字典中已經存在第1行第2列的單元格的值，則執行以下邏輯。
將字典中項的值賦給brr變量，該項的鍵是第I行第2列的單元格值。
brr？=?d(arr(i，2))
將第I行第4列的值連接到brr數組的第二個元素。
brr(2)？=?brr(2)？+?arr(我，？4)
將上述sbm的值，即第I行第1列單元格的值，連接到brr數組第三個元素的後面。
brr(3)？=?brr(3)？& amp？vbLf？& amp？單浮筒系泊
結束？如果
將第I行第2列中鍵的項目值設置為brr變量。
d(arr(i，2))?=?壓力感受器反射反應
然後
結束？隨著
結束？如果
然後
鎖定“匯總表”工作表，進入簡稱編碼模式。
用什麽？工作表(“匯總表”)
清空匯總表中已經存在值的所有區域。
. UsedRange.Offset(1，？0).清楚的
字典D中的條目轉置後，被分配到“匯總表”的單元格區域，該區域由“A2”單元格展開，行數為字典D中的條目數，列數為3。
。範圍(“a2”)。調整大小(d .計數，3)?=?申請。轉置(應用。轉置(d項))
結束？隨著
結束？潛水艇