將d作為對象顯示
I為整數，j為整數，k為整數
dim jg（1到10000，1到2）、crr、drr
Set d = CreateObject（“腳本。詞典》）
arr = Sheet1。【a 1】。current region。value
對於i = 1到下界（arr）
if InStr（arr（I，1）“；“）
crr = Split（arr（I，1）“；“)
drr = Split（arr（I，2）“；“)
對於j = 0至下界（crr）
如果不存在（crr（j）和amp。drr（j）那麽
k = k + 1
jg（k，1）= crr（j）
jg（k，2）= drr（j）
d（crr）和amp。drr（j））=““
如果…就會結束
然後
其他
如果不存在d . exists（arr（I，1）& amp；arr（I，2）然後
k = k + 1
jg（k，1）= arr（I，1）
jg（k，2）= arr（I，2）
d（arr（I，1）和amparr（I，2））=“
如果…就會結束
如果…就會結束
然後
設置d =無
如果k & gt0然後是工作表2。【a1】。調整大小（k，2）。值= jg
末端接頭