昏暗的i & ampx & amp，arr，brr（），str1$
將d作為對象顯示
Set d = CreateObject（“腳本字典“）
帶表（“統計”）
arr =。範圍（“E3:H“& amp；。範圍（“E65536”）。結束（xlUp）。排）
對於x = 1到下界（arr）
str 1 = arr（x，1）& amp；“|“& amp；arr（x，2）& amp；“|“& amp；陣列（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（str 1））= brr（4，d（str 1）+arr（x，4）
下壹個x
。範圍（“K3”）。調整大小（UBound（brr，2），4）=應用程序。轉置
以…結尾
末端接頭
這是妳想要的代碼。