如何將三張excel合成（如何把excel三個(gè)表格合成一個(gè)）

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

把幾個(gè)excel合并到一個(gè)的步驟：

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

把幾個(gè)excel合并到一個(gè)的步驟圖1

新建一個(gè)“數(shù)據(jù)合并.xlsx“文檔

把幾個(gè)excel合并到一個(gè)的步驟圖2

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

把幾個(gè)excel合并到一個(gè)的步驟圖3

把幾個(gè)excel合并到一個(gè)的步驟圖4

雙擊工程資源管理器里面的sheet1，在右側(cè)的代碼區(qū)粘貼如下代碼：

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

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?&?"個(gè)工作薄下的全部工作表。如下："?&?Chr(13)?&?WbN,?vbInformation,?"提示"

End?Sub

把幾個(gè)excel合并到一個(gè)的步驟圖5

把幾個(gè)excel合并到一個(gè)的步驟圖6

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

把幾個(gè)excel合并到一個(gè)的步驟圖7

完成Excel表格的合并

把幾個(gè)excel合并到一個(gè)的步驟圖8

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

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。