excel表格可以合并嗎怎么設置合并(excel怎么讓表格合并)

      網友投稿 775 2025-04-01

      excel表格可以合并嗎怎么設置合并(excel怎么讓表格合并)


      日常工作當中,會產生很多Excel文檔,每當需要整理的時候又很難歸類、查詢。這個時候就需要把諾干個Excel文檔,合并到一個Excel文檔里。不懂的朋友下面讓小編為你帶來excel2013多個表格合并的方法。

      1、把需要合并的excel表格文檔放到同一個文件夾里

      2、新建一個“數據合并.xlsx“文檔

      3、打開“數據合并.xlsx“文檔,在”Sheet1“工作表的地方右鍵→查看代碼(快捷鍵:“Alt+F11”,盡量選用快捷方式)進入到Microsoft Visual Basic for Applications窗口

      4、雙擊工程資源管理器里面的sheet1,在右側的代碼區粘貼如下代碼:

      Sub 合并當前目錄下所有工作簿的全部工作表()

      Dim MyPath, MyName, AWbName

      Dim Wb As Workbook, WbN As String

      Dim G As Long

      Dim Num As Long

      Dim BOX As String

      Application.ScreenUpdating = False

      MyPath = ActiveWorkbook.Path

      MyName = Dir(MyPath & "\" & "*.xls")

      AWbName = ActiveWorkbook.Name

      Num = 0

      Do While MyName <> ""

      If MyName <> AWbName Then

      Set Wb = Workbooks.Open(MyPath & "\" & MyName)

      Num = Num + 1

      With Workbooks(1).ActiveSheet

      .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

      For G = 1 To Sheets.Count

      Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)

      Next

      WbN = WbN & Chr(13) & Wb.Name

      Wb.Close False

      End With

      End If

      MyName = Dir

      Loop

      Range("A1").Select

      Application.ScreenUpdating = True

      MsgBox "共合并了" & Num & "個工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

      End Sub

      5、運行→運行子過程/用戶窗體(或者直接點擊運行按鈕,快捷鍵:F5),即可合并所有Excel表格到”數據合并.xlsx“文檔的Sheet1工作表里面

      6、完成Excel表格的合并

      猜你感興趣:

      1.excel如何合并單元格 excel合并單元格的兩種方法

      excel表格可以合并嗎怎么設置合并(excel怎么讓表格合并)

      2.excel不能合并單元格怎么辦

      3.如何合并單個excel表中的多個工作表

      4.如何合并兩個excel表的方法

      5.excel如何合并工作表 excel2003怎么合并工作表

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      上一篇:Word2003中文檔設置表格邊框和底紋的操作方法(列出設置word表格邊框和底紋的操作方法)
      下一篇:word怎樣實現表格和文字互換(word表格換文本)
      相關文章
      国产成人亚洲综合a∨| 亚洲黄网在线观看| 亚洲中文久久精品无码ww16| 久久亚洲精品成人无码网站| 亚洲精品午夜无码专区| 色欲aⅴ亚洲情无码AV蜜桃| 久久久久亚洲精品日久生情| 亚洲国产高清在线| 爱情岛论坛网亚洲品质自拍| 精品丝袜国产自在线拍亚洲| 亚洲精品无码久久千人斩| 久久亚洲高清综合| 婷婷亚洲天堂影院| 亚洲天堂2017无码中文| 亚洲福利视频一区二区三区| 国产亚洲精久久久久久无码| 亚洲国产精品嫩草影院在线观看 | 亚洲乱码卡一卡二卡三| 国产AV无码专区亚洲Av| 亚洲动漫精品无码av天堂| 亚洲av日韩av激情亚洲| 亚洲人成精品久久久久| 国产精品亚洲一区二区三区在线| 亚洲国产精品久久久天堂| 亚洲AV美女一区二区三区| 91天堂素人精品系列全集亚洲| 亚洲码一区二区三区| 亚洲资源最新版在线观看| 亚洲熟妇无码八V在线播放| 亚洲人成毛片线播放| 亚洲永久中文字幕在线| 亚洲国产精品自在在线观看 | 色婷婷六月亚洲综合香蕉| 色综合久久精品亚洲国产| 亚洲美女在线国产| 亚洲AV无码乱码在线观看性色扶 | 亚洲av永久无码精品漫画| 亚洲午夜福利在线观看| 亚洲av永久无码精品网站| 亚洲男人的天堂在线| 一本色道久久88亚洲精品综合|