如何將三張excel合成（怎么把三個excel合成一個）

有很多朋友不知道excel中如何將幾個excel合并到一個，那么下面將給大家講解一下方法哦，大家可以去下文看一看，相信是值得伙伴們學習的哦!

把幾個excel合并到一個的步驟：

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

把幾個excel合并到一個的步驟圖1

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

把幾個excel合并到一個的步驟圖2

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

把幾個excel合并到一個的步驟圖3

把幾個excel合并到一個的步驟圖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

把幾個excel合并到一個的步驟圖5

把幾個excel合并到一個的步驟圖6

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

把幾個excel合并到一個的步驟圖7

完成Excel表格的合并

把幾個excel合并到一個的步驟圖8

以上就是excel中將幾個excel合并到一個教程，希望可以幫助到大家。

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