[已解决]区域转置

2828466

如附件所示，想把三行五列转换为五行三列，如何用VBA实现。谢谢大家。

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-9-26 12:45

Sub tt()
    Dim arr, brr
    Dim irw%, icol%
    Dim nrw%, ncol%
    arr = Range("a1:e3")
    ReDim brr(1 To UBound(arr, 2), 1 To UBound(arr))
    [a12:e100] = ""
    nrw = 1
    For irw = 1 To UBound(arr)
        For icol = 1 To UBound(arr, 2)
            If ncol = 3 Then ncol = 0: nrw = nrw + 1
            ncol = ncol + 1
            brr(nrw, ncol) = arr(irw, icol)
    Next icol, irw
    [a12].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

跳转到最佳答案楼层

苏子龙

Sub tt()
    Dim arr, brr
    Dim irw%, icol%
    Dim nrw%, ncol%
    arr = Range("a1:e3")
    ReDim brr(1 To UBound(arr, 2), 1 To UBound(arr))
    [a12:e100] = ""
    nrw = 1
    For irw = 1 To UBound(arr)
        For icol = 1 To UBound(arr, 2)
            If ncol = 3 Then ncol = 0: nrw = nrw + 1
            ncol = ncol + 1
            brr(nrw, ncol) = arr(irw, icol)
    Next icol, irw
    [a12].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub