''三维表''转一维表

源数据

源数据

结果

结果

Sub 转置()
    Dim arr, brr(1 To 60000, 1 To 4)'设置一个足够大的数组brr
    arr = [a1].CurrentRegion'源数据赋值到数组arr
    For j = 2 To UBound(arr, 2)'遍历数组arr,按列遍历
        For i = 3 To UBound(arr)
            k = k + 1'计数
'当k=1时
            brr(k, 1) = arr(i, 1) '一、人工成本
            brr(k, 2) = arr(1, j) '大场
            brr(k, 3) = arr(2, j) '预算数
            brr(k, 4) = arr(i, j) '数值
        Next
    Next
    [e26].Resize(k, 4) = brr
End Sub