如何快速把多個excel表合併成一個excel表
很多朋友會遇到這樣的問題,就是很有很多頁的數據,少的有幾十頁,多的可能有幾百頁,然後需要合併到一個頁面做數據分析,如果一頁頁的複製粘貼的話,就比較麻煩。下面我就介紹一種利用Excel的宏計算來解決這個問題,有需要的朋友可以參考一下哦,希望能對大家有所幫助。
操作方法
(01)在原始數據同目錄下新建一個工作簿,建立兩個工作表,名稱分別爲“首頁”和“合併彙總表”。
(02)按Alt+F11進入VBA代碼編輯和調試介面。
(03)在工具欄中找到插入,點擊插入,選擇模組。
(04)將下述代碼粘貼到模組空白處:複製代碼代碼如下:Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = layAlerts = FalseWorksheets("合併彙總表")teSet wsNewWorksheet = (, after:=Worksheets(t)) = "合併彙總表"MyFileName = penFilename("Excel工作薄 (**),**")If MyFileName = "False" ThenMsgBox "沒有選擇檔案!請重新選擇一個被合併檔案!", vbInformation, "取消" Filename:=MyFileNameNum = tMyName = Set DataSource = tBox(prompt:="請選擇要合併的數據區域:", Type:=8)AddressAll = e(AddressAll)ctSourceDataRows = tSourceDataColumns = enUpdating = leEvents = FalseFor i = 1 To ts(i)ts(i)e(AddressAll)ActiveSheetName = Workbooks()ts("合併彙總表")ts("合併彙總表")e("A" & DataRows)e = ts("合併彙總表")e(Cells(DataRows, 2), Cells(DataRows, 2))eSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=eSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName)vateNext enUpdating = leEvents = TrueEnd IfWorkbooks(MyName)eEnd Sub
(05)找到工具欄的“開發工具”,點擊“插入”,找到表單控件裏的窗體控件,在“首頁”工作表中按下圖示範插入一個窗體控件並指定宏爲插入的代碼名稱。
(06)點擊“首頁”工作表中插入的按鈕,根據提示,瀏覽到原始數據工作簿。
(07)用鼠標選擇要合併的數據範圍,點擊確定按鈕,合成成功。
-
合夥做生意我們要注意的問題
合夥做生意對於那些沒幹爹,不是富,官二代的年輕人人來說,實在是在合適不過的了,不僅可以體驗創業,學習,還可以分攤大家的資金風險。是廣大草根非常喜歡的創業模式。但是有好就有壞,在合夥之前我們會有哪些問題要處理呢?又要避免那些那些問題的發生呢? 下面小編給大...
-
CAD圖塊如何編輯?CAD圖塊編輯方法?
本文主要講述在CAD中圖塊如何進行編輯的過程,透過學習來掌握此方法的使用技巧。操作方法(01)首先透過原有圖紙並進行開啟,如下圖所示。(02)圖中圖形爲塊模式,透過選擇當前圖形在特徵中進行檢視,如下圖所示。(03)透過雙擊該圖塊彈出編輯塊定義點擊確定即可,如下圖所示。(04)...
-
個人住房公積金賬號怎麼查
個人住房公積金分爲省直住房公積金和市住房公積金。一般情況下,鐵路單位以及國家機關單位等買的都是省直公積金,一般的企業買的都是市公積金。這裏以查詢個人市住房公積金賬號爲例。操作方法(01)這裏以查詢安徽省合肥市個人住房公積金爲例,查詢其它省市的,同理。思路...
-
當今社會做什麼賺錢
當今社會做什麼賺錢,當下有沒有賺錢的好生意,現在的創業不是隻有個別人能做,很多的年輕人也參與了。現在可以做什麼生意,相較於死板的上班生活,創業更爲靈活,那麼都有哪些呢,一起來看看我們的推薦吧!操作方法(01)電子垃圾提煉黃金近幾年來,電子工業高速發展,手機、電腦等...