excel 如何将2维报表整理为数据清单的方法-英雄云拓展知识分享

下面1图所示的2维报表数据，是我们实际工作中常见到的。这类报表看起来整齐清楚，就算是数据透视表，但是它其实不是真实的数据透视表，没法像数据透视表一样随便进行行列转换并分析数据。由于下面这类表格中含有合并单元格，它也不是最原始的数据清单。为了能够进行各种各样的透视分析，我们需要将其转换为真实的数据清单，如2图所示。

　　这个问题有多种方法可以解决，不管采取哪一种方法，首先必须将合并单元格取消，并填充为上一个单元格（行）或前一个单元格（列）的数据，具体转换方法可以参考前面的数据透视表系列教程。取消合并单元格并填充相应数据后，就能够进行数据表格转换了。

　　一个最简单的方法就是分别复制粘贴各列的数据到新的数据区域中，需要特别注意准确肯定该数据对应的地区、城市、成色和产品。

　　如果数据量很大，可使用公式或VBA来解决。

　　下面是利用VBA解决上述问题的程序代码。假定取消合并单元格并填充相应数据后表格数据保存在工作表“取消合并单元格”中。下面是相干的代码：
Public Sub DataList()
    Dim myArray As Variant
    Dim n As Long, m As Integer, i As Long, k As Long
    Dim ws0 As Worksheet
    Dim wsNew As Worksheet
    myArray = Array("地区", "城市", "成色", "产品", "销售数量")
    Set ws0 = Worksheets("取消合并单元格")
    n = ws0.Range("A65536").End(xlUp).Row - 2
    m = ws0.Range("IV3").End(xlToLeft).Column - 2
    ReDim District(1 To n) As String, Province(1 To n) As String
    For i = 1 To n
        District(i) = ws0.Range("A" & i + 2)
        Province(i) = ws0.Range("B" & i + 2)
    Next i
    On Error Resume Next
    Application.DisplayAlerts = False
    Worksheets("数据清单").Delete
    Application.DisplayAlerts = False
    On Error GoTo 0
    Set wsNew = Worksheets.Add
    With wsNew
        .Name = "数据清单"
        .Range("A1:E1") = myArray
        For j = 1 To m
            For i = 1 To n
                .Cells((j - 1) * n + i + 1, 1) = District(i)
                .Cells((j - 1) * n + i + 1, 2) = Province(i)
                .Cells((j - 1) * n + i + 1, 3) = ws0.Cells(1, j + 2)
                .Cells((j - 1) * n + i + 1, 4) = ws0.Cells(2, j + 2)
                .Cells((j - 1) * n + i + 1, 5) = ws0.Cells(i + 2, j + 2)
            Next i
        Next j
    End With
    Set ws0 = Nothing
    Set wsNew = Nothing

End Sub

　　只要运行上面代码，就能够快速的将报表数据转换为数据清单，并保存在一个新建的工作表“数据清单”中。以下图2所示。

　　现在就能够利用整理好的“数据清单”制作数据透视表了。下图3所示的就是利用整理好的数据清单制作的数据透视表的一种报表结构，利用数据透视表可以对数据进行各种统计分析，制作各种统计报表。