如何在Excel中将列转置为行

Question

我有以下Excel工作表：

   A
1 foo
2 bar
3 baz
4 bam

（实际上，该列要长很多，因此无法手动传输）。 我怎样才能把这张纸变成

   A   B   C   D
1 foo bar baz bam

我已经尝试了数据透视表功能，但无法获取所需的输出。 我也可以编写一个（php）脚本来读取和转换Excel，但是我无法想象这在Excel中不容易完成。 但是，我一直找不到这个问题的答案。 你能帮我吗？

Answer 1

有两种简单的非编程方式：

1. 复制数据，然后在目标处使用选择性粘贴 -> 转置
2. 应用TRANSPOSE工作表函数：选择转置大小的范围（在您的示例中为1行x 4列，然后输入=TRANSPOSE(A1:A4) 。您需要将此作为数组公式输入，即按Ctrl - Shift - Enter

如果出于某些原因需要通过代码执行此操作，则此VBA代码将执行以下操作：

Sub CopyTransposed(rngSource As Range, rngTargetCell As Range)
    rngTargetCell.Resize(rngSource.Columns.Count, rngSource.Rows.Count).Value = _
        Application.WorksheetFunction.Transpose(rngSource)
End Sub

您可以简单地这样称呼它：

CopyTransposed [A1:A4], [C1] 

或者更明确

CopyTransposed Sheets("SourceSheet").Range("A1:A4"),Sheets("TargetSheet").Range("C1")

Answer 2

如果只需要转置数据（即没有格式），请尝试此

Sub zx()
    Dim rng As Range
    Dim dat As Variant

    With ActiveSheet ' can be any sheet
        Set rng = .[A1:A5] ' get refernce to your data, by any means
        dat = rng ' copy data to array
        rng.Clear ' clear old data

        ' paste transposed data
        .Range(rng.Cells(1, 1), Cells(rng.Row, rng.Rows.Count)) = Application.Transpose(dat)
    End With
End Sub

Answer 3

Ctrl + C使用“选择性粘贴”进行复制和粘贴。 单击对话框上的移调。

但这会将其粘贴为值。