将标准行/列中的 Excel 数据转换为每个唯一行 1 列，行数与列数一样多答案

【问题标题】：Transposing Excel data from standard row/columns into 1 column per unique row, and as many rows as there were columns将标准行/列中的 Excel 数据转换为每个唯一行 1 列，行数与列数一样多
【发布时间】：2019-05-03 03:22:42
【问题描述】：

我在 Excel 中有一些随机数据，格式如下：

ID number/Col_B/Col_C/Col_D/Col_E

001/'test'/'test'/'test'/'test'

002/'test'/'test'/'test'/'test'

003/'test'/'test'/'test'/'test'

我想转置它（数据透视表？），以便每个 ID 号有 1 列，每隔一列有 1 行......就像这样：

-ID Number----001 / 002 / 003

'Col_A'    'Test'  'Test' 'Test'

'Col_B'    'Test'  'Test'  'Test'

'Col_C'    'Test'   'Test'  'Test'

这可能吗？我尝试通过突出显示我的完整数据集并拖动 ID 列来创建数据透视表，以便每个 ID 有 1 列。但是如果我将其他列（A B C）添加为行，它看起来不像我需要的。 .如果我将它们添加到中间（值）框中，它会计算/求和/分钟/最大化它们，但我只想要值本身..

【问题讨论】：

标签： excel pivot pivot-table transpose

【解决方案1】：

突出显示单元格，复制。选择目的地，右键单击，选择性粘贴并选择转置

【讨论】：

【解决方案2】：

使用 VBA

Sub Redesigner()
    Dim i As Long
    Dim hc As Integer, hr As Integer
    Dim ns As Worksheet

    hr = 1 ' count rows on top
    hc = 1 ' count column on left

    Application.ScreenUpdating = False

    i = 1
    Set inpdata = Selection
    Set ns = Worksheets.Add

    For r = (hr + 1) To inpdata.Rows.Count
        For c = (hc + 1) To inpdata.Columns.Count
            For j = 1 To hc
                ns.Cells(i, j) = inpdata.Cells(r, j)
            Next j

            For k = 1 To hr
                ns.Cells(i, j + k - 1) = inpdata.Cells(k, c)
            Next k

            ns.Cells(i, j + k - 1) = inpdata.Cells(r, c)
            i = i + 1
        Next c
    Next r
End Sub

使用转置公式并扩展到所需的行和列

={Transpose(A1:A20)}  ' CTRL+SHIFT+ENTER  Array FORmula !!!

使用默认转置功能

Select Table -> Copy -> Select cell where to transpose -> Right click Mouse -> Select Transpose

【讨论】：