excel如何将10000*1列的数据每100行转置为1列？

excel如何将10000*1列的数据每100行转置为1列？最后生成100x100的数据

为了简化，我弄成10列，你自己搞100

    For i = 1 To ActiveSheet.UsedRange.Rows.Count \ 10
        Range("B" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 1).Value
        Range("C" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 2).Value
        Range("D" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 3).Value
        Range("E" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 4).Value
        Range("F" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 5).Value
        Range("G" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 6).Value
        Range("H" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 7).Value
        Range("I" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 8).Value
        Range("J" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 9).Value
        Range("K" & i).Select
        ActiveCell.Value = Range("A" & i * 10 + 10).Value
    Next