字典的典型代碼

昏暗的i & amp，x & amp，arr，brr()，str1美元

Dim d作為對象

Set d = CreateObject("腳本字典")

帶表(“統計”)

arr =。範圍(" E3:H " & amp；。範圍(“E65536”)。結束(xlUp)。行)

對於x = 1到下界(arr)

str1 = arr(x，1)" | " & amparr(x，2)和amp" | " & amparr(x，3)

如果d .不存在(str1 ),則

i = i + 1

ReDim Preserve brr(1到4，1到I)

brr(1，i) = arr(x，1)

brr(2，i) = arr(x，2)

brr(3，i) = arr(x，3)

如果…就會結束

brr(4，d(str1)) = brr(4，d(str1))，arr(x，4)

下壹個x

。範圍(“K3”)。Resize(UBound(brr，2)，4) = Application。轉置

以…結尾

末端接頭

這是妳想要的代碼。