子測試（）
dim arr，brr（）；，我& amp，d作為對象，str1$
set d = createojbedt（“scripting . dictionary“）
arr = range（“a 1:C“範圍（“A65536”）。結束（xlup）。排）
redim brr（1到3，1到1）
對於x=1到下界（arr）
str 1 = arr（x，2）& amp；“|“& amp；陣列（x，3）
如果d .不存在（str1），則
i=i+1
d（str 1）= I
redim preserve brr（1到3，1到I）
brr（2，I）= arr（x，2）
brr（3，I）= arr（x，3）
如果…就會結束
brr（1，d（str 1）= brr（1，d（str 1））+arr（x，1）
下壹個x
範圍（“e1“）。resize（ubound（BRR，2），3）=應用程序。“轉置（BRR）”您可以將以前的單元格地址更改為您想要書寫的位置。
結束接頭