如何在 Excel 中“取消旋转”或“反向旋转”？

Question

我有看起来像这样的数据：

Id | Loc1 | Loc2 | Loc3 | Loc4
---+------+------+------+-----
1  | NY   | CA   | TX   | IL
2  | WA   | OR   | NH   | RI

我想把它转换成这个：

Id | LocNum | Loc
---+--------+----
1  |   1    | NY
1  |   2    | CA
1  |   3    | TX
1  |   4    | IL
2  |   1    | WA
2  |   2    | OR
2  |   3    | NH
2  |   4    | RI

在 Excel 2007 中执行此操作的最简单方法是什么？

Answer 1

您可以使用数据透视表执行此操作。

1. 创建“多个合并范围数据透视表”。（只有在数据透视表向导。Callup用ALT+ D，P在Excel 2007中）
2. 选择“我将创建自己的页面字段”。
3. 选择您的数据。
4. 双击总计值 - Row Grand和Column Grand的交叉点，一直在数据透视表的右下角。

您应该会看到一个包含数据透视表中所有数据的新工作表，并按照您要查找的方式进行了转置。

Datapig 技术提供了实际上比您需要的更复杂的分步说明- 他的示例仅转置了数据集的一部分并使用了与TextToColumns相结合的数据透视技术。但它确实有很多图片。

请注意，数据透视表将对数据进行分组。如果您希望取消分组，唯一的方法是复制数据透视表，并将“特殊粘贴”作为值。然后，您可以使用如下技术填充空白：http : //www.contextures.com/xlDataEntry02.html

Answer 2

如果您的数据不是 Excel 数据透视表而只是数据，您可能需要使用一些简单的 VBA 代码“取消透视”它。代码取决于两个命名范围，源和目标。源是要取消透视的数据（不包括列/行标题，例如示例中的 NY-RI），目标是要放置结果的第一个单元格。

Sub unPivot()
Dim oTarget As Range
Dim oSource As Range
Dim oCell As Range

Set oSource = Names("Source").RefersToRange
Set oTarget = Names("Target").RefersToRange

For Each oCell In oSource
    If oCell.Value <> "" Then
        oTarget.Activate
      ' get the column header
        oTarget.Value = oCell.Offset(-(oCell.Row - oSource.Row + 1), 0).Text 
      ' get the row header
         oTarget.Offset(0, 1).Value = oCell.Offset(0, _
           -(oCell.Column - oSource.Column + 1)).Text 
      ' get the value
        oTarget.Offset(0, 2).Value = oCell.Text 
      ' move the target pointer to the next row
        Set oTarget = oTarget.Offset(1, 0) 
    End If
Next
Beep
End Sub

Answer 3

我已经构建了一个加载项，可以让您这样做，并且可以轻松适应不同的情况。在这里查看：http : //tduhameau.wordpress.com/2012/09/24/the-unpivot-add-in/

Answer 4

Excel 2010中有一个相当不错的解决方案，只需要稍微使用一下数据透视表即可。

\n\n

使用以下设置根据您的数据创建数据透视表：

\n\n

\n
• 没有小计，没有总计
\n
• 报告布局：表格形式，重复所有项目标签
\n
• 添加您需要的所有列，将要转换的列保留在右侧
\n
• 对于要转换的每一列：在布局和打印选项卡中打开字段设置 \xe2\x80\x93：选择 \xe2\x80\x9c以大纲形式显示项目标签\xe2\x80\x9d 并选中其下面的两个复选框
\n
• 将表复制到单独的位置（仅值）
\n
• 如果原始数据中有空单元格，则过滤最右列中的空值并删除这些行（不要在数据透视表中过滤\xe2\x80\x99t，因为它无法按您的需要工作！）
\n

\n