excel将二维报表整理为数据清单
excel 如何将二维报表整理为数据清单的方法
下面1图所示的二维报表数据，是我们实际工作中常见到的。这种报表看起来整齐清楚，就算是数据透视表，然而它并不是真正的数据透视表，无法像数据透视表一样随意进行行列转换并分析数据。因为下面这种表格中含有合并单元格，它也不是最原始的数据清单。为了能够进行各种各样的透视分析，我们需要将其转换为真正的数据清单，如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所示的就是利用整理好的数据清单制作的数据透视表的一种报表结构，利用数据透视表可以对数据进行各种统计分析，制作各种统计报表。
excel 实现更为普遍的二维报表整理为数据清单的方法
下面1图所示的二维报表数据。这种表格设计的初衷是为了方便输入数据，但是却为数据汇总和分析造成了麻烦。例如，要统计办公室的复印纸的耗量和费用，就比较麻烦。对于这样的表格，最后将其设计为日记流水账的形式，如图2所示。尽管在输入数据时有些麻烦，但统计汇总分析就很方便。 那么如何将图1所示的二维表格转换为图2所示的规范表格呢，利用函数也是很复杂的，可以利用VBA编制程序比较方便。下面就是相关的VBA程序代码。Public Sub DataList() Dim myArray As Variant Dim n As Long, i As Long, k As Long, j As Long Dim ws0 As Worksheet Dim wsNew As Worksheet myArray = Array("日期", "材料", "单位", "部门", "数量", "金额") Set ws0 = Worksheets("不科学表格") n = ws0.Range("A65536").End(xlUp).Row - 2 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:F1") = myArray k = 1 For j = 4 To 8 Step 2 For i = 1 To n If ws0.Cells(i + 2, j) <> "" Then .Cells(k + 1, 1) = Format(ws0.Cells(i + 2, 1), "yyyy-m-d") .Cells(k + 1, 2) = ws0.Cells(i + 2, 2) .Cells(k + 1, 3) = ws0.Cells(i + 2, 3) .Cells(k + 1, 4) = ws0.Cells(1, j) .Cells(k + 1, 5) = ws0.Cells(i + 2, j) .Cells(k + 1, 6) = ws0.Cells(i + 2, j + 1) k = k + 1 End If Next i Next j End With Set ws0 = Nothing Set wsNew = Nothing End Sub 只要运行上面代码，就可以迅速的将二维报表数据转换为数据清单。现在就可以利用整理好的“数据清单”制作数据透视表。