vba - 将数据从行转置为列的 Excel VBA 代码

Question

我的 A 列有 50000 行数据。我需要将每 6 行数据转置为 6 列。例如，A1:A6 中的数据必须转置为 B1:G1。同样，来自 A7:A14 的数据必须转置到 B2:G2。如果有人可以为此提供 VBA 代码，我将不胜感激。

Data I have in column A is as shown below:

Col A
1
2
3
4
5
6
7
8
9
10
11
12

The transpose data must be as shown below in col B to col G:

Columns  B   C   D   E   F   G
         1   2   3   4   5   6
         7   8   9   10  11  12

Answer 1

试试这个:

Sub TransposeRows()
    Dim rng As Range
    Dim i As Long

    Set rng = Range("A1")
    While rng.Value <> ""
        i = i + 1
        rng.Resize(6).Copy
        Range("B" & i).PasteSpecial Transpose:=True
        Set rng = rng.Offset(6)            
    Wend
    Application.CutCopyMode = False
End Sub

从 here 得到这个.