Dim dic，iStr as string
set DIC = CreateObject（“Scripting。詞典》）
帶活動表
對於i = 1到。範圍（“A65536”）。結束（xlUp）。排
iStr =。細胞（I，1）和amp“，“& amp。細胞（I，2）和amp“，“& amp。細胞（I，3）
DIC（iStr）= DIC（iStr）+細胞（I，4）
然後
對於駕駛員信息中心按鍵中的每個d
n = n + 1
。單元格（n，6）。調整大小（1，3）=拆分（d，“，“）
然後
。單元格（1，9）。調整大小（dic。Count，1）=工作表功能。轉置（dic.items）
以…結尾
末端接頭