你好,歡迎來到川北在線
微信
騰訊微博
新浪微博
office常識(shí):excel快速合并工作表圖文教程
時(shí)間:2017-07-28 14:39   來源:三聯(lián)   責(zé)任編輯:沫朵
  原標(biāo)題:office常識(shí):excel快速合并工作表圖文教程 

  excel快速合并工作表操作步驟:

  1、原始數(shù)據(jù)所在工作簿包含多個(gè)格式相同的工作表,只不過每個(gè)工作表內(nèi)容不同,比如說不同人名的工作表數(shù)據(jù)或者不同部門填寫的數(shù)據(jù)。

excel快速合并工作表   三聯(lián)

  2、在原始數(shù)據(jù)同目錄下新建一個(gè)工作簿,建立兩個(gè)工作表,名稱分別為“首頁”和“合并匯總表”。

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表
 
excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  3、按Alt+F11進(jìn)入VBA代碼編輯和調(diào)試界面。

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  4、根據(jù)下圖提示,插入一個(gè)模塊。excel快速合并工作表

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表
 
excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  5、將下述代碼粘貼到模塊空白處:

  復(fù)制代碼

  代碼如下:

  Sub CombineSheetsCells()

  Dim wsNewWorksheet As Worksheet

  Dim cel As Range

  Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant

  Dim TitleRow, TitleColumn As Range

  Dim Num As Integer

  Dim DataRows As Long

  DataRows = 1

  Dim TitleArr()

  Dim Choice

  Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$

  Dim n, i

  n = 1

  i = 1

  Application.DisplayAlerts = False

  Worksheets("合并匯總表").Delete

  Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))

  wsNewWorksheet.Name = "合并匯總表"

  MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")

  If MyFileName = "False" Then

  MsgBox "沒有選擇文件!請(qǐng)重新選擇一個(gè)被合并文件!", vbInformation, "取消"

  Else

  Workbooks.Open Filename:=MyFileName

  Num = ActiveWorkbook.Sheets.Count

  MyName = ActiveWorkbook.Name

  Set DataSource = Application.InputBox(prompt:="請(qǐng)選擇要合并的數(shù)據(jù)區(qū)域:", Type:=8)

  AddressAll = DataSource.Address

  ActiveWorkbook.ActiveSheet.Range(AddressAll).Select

  SourceDataRows = Selection.Rows.Count

  SourceDataColumns = Selection.Columns.Count

  Application.ScreenUpdating = False

  Application.EnableEvents = False

  For i = 1 To Num

  ActiveWorkbook.Sheets(i).Activate

  ActiveWorkbook.Sheets(i).Range(AddressAll).Select

  Selection.Copy

  ActiveSheetName = ActiveWorkbook.ActiveSheet.Name

  Workbooks(ThisWorkbook.Name).Activate

  ActiveWorkbook.Sheets("合并匯總表").Select

  ActiveWorkbook.Sheets("合并匯總表").Range("A" & DataRows).Value = ActiveSheetName

  ActiveWorkbook.Sheets("合并匯總表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).Select

  Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _

  SkipBlanks:=False, Transpose:=False

  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

  False, Transpose:=False

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

  :=False, Transpose:=False

  DataRows = DataRows + SourceDataRows

  Workbooks(MyName).Activate

  Next i

  Application.ScreenUpdating = True

  Application.EnableEvents = True

  End If

  Workbooks(MyName).Close

  End Sub

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  6、在“首頁”工作表中按下圖示范插入一個(gè)窗體控件并指定宏為插入的代碼名稱。

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表
 
excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  7、點(diǎn)擊“首頁”工作表中插入的按鈕,根據(jù)提示,瀏覽到原始數(shù)據(jù)工作簿。

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  8、下一步,用鼠標(biāo)選擇要合并的數(shù)據(jù)范圍。

  注意:每個(gè)工作表數(shù)據(jù)可能不一樣,比如說有的是10行數(shù)據(jù),有的是30行數(shù)據(jù)。在這里我們可以用鼠標(biāo)選擇任意工作表的一個(gè)較大范圍,比如說A1:D100,保證比最多行數(shù)的工作表數(shù)據(jù)還多就可以,一會(huì)再刪除空行。

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表
 
excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  9、點(diǎn)擊確定按鈕,待代碼運(yùn)行完畢后,所有的數(shù)據(jù)就都合并到了“合并匯總表”中。

  注意:

  1)A列的文本說明右側(cè)的數(shù)據(jù)來自于原始數(shù)據(jù)表的哪個(gè)工作表;

  2)數(shù)據(jù)之間會(huì)有一些空行,下面通過篩選刪除。

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  10、選中全部數(shù)據(jù)區(qū)域,執(zhí)行自動(dòng)篩選。然后選擇其中一個(gè)字段,選擇“空白”和標(biāo)題內(nèi)容。

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  11、然后將篩選出來的無用行鼠標(biāo)右鍵刪除,再刪除A列整列即可,完成效果如下圖:

excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表
 
excel怎么快速合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表

  END

  以上就是excel如何快速把多個(gè)工作表合并到一個(gè)excel表的方法,大家看明白了嗎?希望能幫助到大家,謝謝大家閱讀本篇文章!

   投稿郵箱:chuanbeiol@163.com   詳情請(qǐng)?jiān)L問川北在線:http://m.sanmuled.cn/

川北在線-川北全搜索版權(quán)與免責(zé)聲明
①凡注明"來源:XXX(非在線)"的作品,均轉(zhuǎn)載自其它媒體,轉(zhuǎn)載目的在于傳遞更多信息,并不代表本網(wǎng)贊同其觀點(diǎn)和對(duì)其真實(shí)性負(fù)責(zé),本網(wǎng)不承擔(dān)此類稿件侵權(quán)行為的連帶責(zé)任。
②本站所載之信息僅為網(wǎng)民提供參考之用,不構(gòu)成任何投資建議,文章觀點(diǎn)不代表本站立場(chǎng),其真實(shí)性由作者或稿源方負(fù)責(zé),本站信息接受廣大網(wǎng)民的監(jiān)督、投訴、批評(píng)。
③本站轉(zhuǎn)載純粹出于為網(wǎng)民傳遞更多信息之目的,本站不原創(chuàng)、不存儲(chǔ)視頻,所有視頻均分享自其他視頻分享網(wǎng)站,如涉及到您的版權(quán)問題,請(qǐng)與本網(wǎng)聯(lián)系,我站將及時(shí)進(jìn)行刪除處理。



圖庫
合作媒體
金寵物 綠植迷
法律顧問:ITLAW-莊毅雄律師