excel 如何將二維報(bào)表整理為數(shù)據(jù)清單的辦法

下面1圖所示的二維報(bào)表數(shù)據(jù)，是我們實(shí)際工作中常見到的。這種報(bào)表看起來整齊清楚，就算是數(shù)據(jù)透視表，然而它并不是真正的數(shù)據(jù)透視表，無法像數(shù)據(jù)透視表一樣隨意進(jìn)行行列轉(zhuǎn)換并分析數(shù)據(jù)。因?yàn)橄旅孢@種表格中含有合并單元格，它也不是最原始的數(shù)據(jù)清單。為了能夠進(jìn)行各種各樣的透視分析，我們需要將其轉(zhuǎn)換為真正的數(shù)據(jù)清單，如2圖所示。

　　這個(gè)問題有多種方法可以解決，無論采用哪種方法，首先必須將合并單元格取消，并填充為上一個(gè)單元格（行）或前一個(gè)單元格（列）的數(shù)據(jù)，具體轉(zhuǎn)換方法可以參考前面的數(shù)據(jù)透視表系列教程。取消合并單元格并填充相應(yīng)數(shù)據(jù)后，就可以進(jìn)行數(shù)據(jù)表格轉(zhuǎn)換了。

　　一個(gè)最簡單的方法就是分別復(fù)制粘貼各列的數(shù)據(jù)到新的數(shù)據(jù)區(qū)域中，需要特別注意準(zhǔn)確確定該數(shù)據(jù)對(duì)應(yīng)的地區(qū)、城市、成色和產(chǎn)品。

　　如果數(shù)據(jù)量很大，可以使用公式或者VBA來解決。

　　下面是利用VBA解決上述問題的程序代碼。假定取消合并單元格并填充相應(yīng)數(shù)據(jù)后表格數(shù)據(jù)保存在工作表“取消合并單元格”中。下面是相關(guān)的代碼：
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("地區(qū)", "城市", "成色", "產(chǎn)品", "銷售數(shù)量")
??? 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("數(shù)據(jù)清單").Delete
??? Application.DisplayAlerts = False
??? On Error GoTo 0
??? Set wsNew = Worksheets.Add
??? With wsNew
??????? .Name = "數(shù)據(jù)清單"
??????? .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

　　只要運(yùn)行上面代碼，就可以迅速的將報(bào)表數(shù)據(jù)轉(zhuǎn)換為數(shù)據(jù)清單，并保存在一個(gè)新建的工作表“數(shù)據(jù)清單”中。如下圖2所示。

　　現(xiàn)在就可以利用整理好的“數(shù)據(jù)清單”制作數(shù)據(jù)透視表了。下圖3所示的就是利用整理好的數(shù)據(jù)清單制作的數(shù)據(jù)透視表的一種報(bào)表結(jié)構(gòu)，利用數(shù)據(jù)透視表可以對(duì)數(shù)據(jù)進(jìn)行各種統(tǒng)計(jì)分析，制作各種統(tǒng)計(jì)報(bào)表。