程序代碼:
運行結果:
是不是很完美，程序文本:
選項顯式
子變換（）
Dim a1，a2（1到1000，1到100），I，j，x，y，m，n
Set x = CreateObject（“腳本。詞典》）
Set y = CreateObject（“腳本。詞典》）
a1 =範圍（“a1“）。當前區域
對於i = 1至下界（a1）
如果a 1（I，1）=價格，則
如果y .不存在（a 1（I，2）），則
a2（1，y . Count+2）= a1（I，2）
y.添加a 1（I，2），y計數+ 2
如果…就會結束
n = y（a 1（I，2））
其他
如果x .不存在（a 1（I，1）），則
a2（x . Count+2，1）= a 1（I，1）
x.加a 1（I，1），x.Count + 2
如果…就會結束
m = x（a 1（I 1））
a2（m，n）= a1（I，2）
如果…就會結束
接下來我
範圍（“d1“）。調整大小（x.Count + 1，y . Count+1）= a2
末端接頭