日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 辦公軟件教程 > 詳細(xì)頁面

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

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

更新時(shí)間:2023-12-27 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統(tǒng)的電腦編寫的一款電子表格軟件。直觀的界面、出色的計(jì)算功能和圖表工具,再加上成功的市場營銷,使Excel成為最流行的個(gè)人計(jì)算機(jī)數(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ù)對應(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ù)透視表可以對數(shù)據(jù)進(jìn)行各種統(tǒng)計(jì)分析,制作各種統(tǒng)計(jì)報(bào)表。

數(shù)據(jù)透視表系列教程九


Excel整體界面趨于平面化,顯得清新簡潔。流暢的動(dòng)畫和平滑的過渡,帶來不同以往的使用體驗(yàn)。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 色综久久久久 | 天天躁狠狠躁 | 99久久精品费精品国产一区二区 | 日本黄免费 | 户外露出精品视频在线观看 | 手机看片福利日韩国产 | 91国在线视频 | 久久天天躁夜夜躁狠狠躁2015 | 超91精品手机国产在线 | 久久精品中文字幕极品 | 最近更新中文字幕第一页 | 欧美二级黄色片 | 亚洲精品伊人 | 91av在线免费视频 | 色综合久久婷婷天天 | 性欧美bbbbbb动漫 | 日本免费看片网站 | 青草草在线观看免费视频 | 亚洲一区二区观看 | 日韩欧美亚洲精品 | 免费看黄色网页 | 国产品精人成福利视频 | 国产在线精品视频 | 亚洲综合久久伊人热 | 中文字幕在线免费播放 | 久色伊人| 中文字幕不卡视频 | 日本成人不卡视频 | 国产精品亚洲午夜不卡 | 国产欧美一区二区三区免费看 | 日本一二三区免费 | 免费日比视频 | 日日操日日射 | 国产精品一区二区不卡 | 91短视频社区在线观看 | 国产不卡视频 | 久久亚洲欧美成人精品 | 四虎影院免费 | 日本啪啪片| 99国产精品热久久久久久夜夜嗨 | 亚洲经典乱码在线播 |