如何快速把多個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)用鼠標選擇要合併的數據範圍,點擊確定按鈕,合成成功。
-
隔月普票開錯了怎麼辦
隔月開紅票,再開正確的發票 如果是專票就麻煩了,以後要小心操作方法(01)上月開票後你如果已入賬,則應開具一張與上月相同的紅字普票沖銷(同時應將對方寄回的藍票附在後面粘回收票本),再開一張正確的藍字發票入賬。(02)如上月開票後你末及時入賬則可將收回的普票粘回原處...
-
低壓電工實際操作,三相電機的正反轉控制
低壓電工實際操作的一項重要項目:三相電機的正反轉控制。想實現電機的正反轉,只需要對調三相電源的兩根線路就可以實現。這樣控制電路需要兩個交流接觸器來實現,電機的電源的相序切換。為了實現互鎖和將接觸器的常閉觸點串接到電路中。操作方法(01)看懂原理圖:分為主...
-
如何做營銷推廣
如何做營銷推廣,我想不同的行業能寫出上百種的營銷推廣方案,所以今天我針對如何做營銷推廣説一下我個人的建議與看法,也會提供幾種比較好的營銷方式給大家。操作方法(01)做營銷推廣之前,一定要做好調查,確定自己的目標客户在哪裏,然後再通過對比以下列舉的營銷推廣方案...
-
簡單的蔬菜立體擺盤方法
現在越來越多人由於工作太忙,生活的比較粗心,只要每天三餐吃的飽就可以了,其實,靜下來,我們可以把生活過的稍微精緻一點,擺盤就是第一步。操作方法(01)首先準備好蔬菜。(02)黃瓜切開。(03)切口,切六個,要平均分。(04)胡蘿蔔切片。(05)胡蘿蔔夾到黃瓜裏。(06)黃瓜切薄片。(07)在胡蘿蔔...