昏暗的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。轉置
以…結尾
末端接頭
這是妳想要的代碼。