用EXCEL VBA按首列首行拆分合並多列數據？

Dim arr作為變量

Dim brr()作為變量

Dim i壹樣長，j壹樣長，k壹樣長

k = 1

arr = Range(" a 1 ")current region . value。

ReDim brr(1到(UBound(arr，1) - 1) * (UBound(arr，2) - 1)，1到3)

對於i = 2到UBound(arr，2)'列

對於j = 2到UBound(arr，1+0)'線

brr(k，1) = arr(j，1)

brr(k，2) = arr(1，I)

brr(k，3) = arr(j，I)

k = k + 1

然後

然後

range(" h 1 ")current region . clear contents。

range(" h 1:j 1 ")= array(" customer "，" classification "，" limited ")。

範圍(“H2”)。Resize(UBound(brr，1)，UBound(brr，2)) = brr

末端接頭