如何使用PowerPivot（非Power Query）对月度销售数据逆透视？

针对你有50余列月度数据、无法使用Power Query的情况，以下是两种实用的解决方案：

一、公式组合法（无宏，适合轻量数据） #

假设原始数据结构为：A列是维度列（如产品/区域），B~AZ列是Jan、Feb等月度销售列。

1. 新增两列，分别命名为Month和Values。
2. 在Month列的第一个数据单元格（如F2）输入公式：

   =INDEX($B$1:$AZ$1,INT((ROW(A1)-1)/COUNTA($A$2:$A$100))+1)
   

   （注：$B$1:$AZ$1替换为你的月度表头范围，$A$2:$A$100替换为原始数据的行范围）
3. 在对应Values单元格（如G2）输入公式：

   =INDEX($B$2:$AZ$100,MOD(ROW(A1)-1,COUNTA($A$2:$A$100))+1,INT((ROW(A1)-1)/COUNTA($A$2:$A$100))+1)
   

4. 选中两个公式单元格，下拉填充至出现空值或#REF!，最后将公式结果复制粘贴为值即可。

二、VBA批量处理法（适合大量数据） #

1. 按Alt + F11打开VBA编辑器，插入新模块。
2. 粘贴以下代码（可根据实际表头调整"Product"字段）：

   Sub ConvertMonthlySales()
       Dim srcSheet As Worksheet, destSheet As Worksheet
       Dim lastRow As Long, lastCol As Long, i As Long, j As Long, destRow As Long
       
       Set srcSheet = ActiveSheet ' 指向当前数据所在工作表
       Set destSheet = ThisWorkbook.Sheets.Add ' 新建工作表存放结果
       
       ' 写入结果表头
       destSheet.Range("A1") = "Product"
       destSheet.Range("B1") = "Month"
       destSheet.Range("C1") = "Values"
       
       lastRow = srcSheet.Cells(srcSheet.Rows.Count, 1).End(xlUp).Row
       lastCol = srcSheet.Cells(1, srcSheet.Columns.Count).End(xlToLeft).Column
       destRow = 2
       
       ' 遍历原始数据，转换为长表格式
       For i = 2 To lastRow
           For j = 2 To lastCol
               destSheet.Cells(destRow, 1) = srcSheet.Cells(i, 1)
               destSheet.Cells(destRow, 2) = srcSheet.Cells(1, j)
               destSheet.Cells(destRow, 3) = srcSheet.Cells(i, j)
               destRow = destRow + 1
           Next j
       Next i
       
       destSheet.Columns.AutoFit
       MsgBox "数据转换完成！"
   End Sub
   

3. 运行宏，即可自动完成所有月度列的转换。

三、Power Pivot替代方案（若可用） #

如果能使用Power Pivot功能：

1. 选中原始数据，点击Power Pivot选项卡→添加到数据模型。
2. 在Power Pivot窗口中，选中所有月度列，右键选择取消透视列。
3. 将自动生成的属性列重命名为Month，值列重命名为Values，最后导出到新工作表即可。

内容的提问来源于stack exchange，提问作者Sukhbir Gill