Dim dic，iStr作為字符串
Set dic = CreateObject("Scripting。字典》)
帶活動表
對於i = 1到。範圍(" A65536 ")。結束(xlUp)。排
iStr =。細胞(I，1)& amp；“，”& amp。細胞(I，2)& amp；“，”& amp。細胞(I，3)
dic(iStr) = dic(iStr) + Cells(i，4)
然後
對於駕駛員信息中心按鍵中的每個d
n = n + 1
。細胞(n，6)。Resize(1，3) = Split(d，"，")
然後
。單元格(1，9)。調整大小(dic。計數，1) = WorksheetFunction。轉置(dic.items)
以…結尾
末端接頭