宏代碼-合并工作表

1、.宏代碼工作表合并一、關(guān)于宏的EXCEL設(shè)置1.設(shè)置快捷宏圖標(biāo)：文件EXCEL選項-常用-在功能區(qū)顯示“開發(fā)工具”選項卡打鉤2.刪除宏：宏-選中相應(yīng)的宏-刪除3.取消出現(xiàn)安全隱私警告：EXCEL選項-信任中心-信任中心設(shè)置-個人信息選項-將”保存時從文件屬性中刪除個人信息“前面的勾去掉二、合并當(dāng)前工作簿下的所有工作表1.我們現(xiàn)在開始合并，首先要在最前頁新建一個工作表。如圖：步驟閱讀2.在新建的sheet表中“右鍵”，找到“查看代碼”，然后看到宏計算界面。如圖所示：步驟閱讀步驟閱讀看到宏計算界面，我們就只需要把下面的代碼復(fù)制進去，代碼如下，效果如下：Sub 合并當(dāng)前工作簿下的所有工作表()App

2、lication.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).Name ActiveSheet.Name Then X = Range(A65536).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End IfNextRange(B1).SelectApplication.ScreenUpdating = TrueMsgBox 當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！, vbInformation, 提示End Sub或者如下：Sub合并() ForI=2

3、ToSheets.Count 如果工作表的第一行都一樣，就把下Rows(1&的1改成2就好了Sheets(I).Rows(1&:&Sheets(I).Range(A60000).End(xlUp).Row)._CopyRange(A&Range(A60000).End(xlUp).Row+1)NextEndSub步驟閱讀1. 53.點擊工具欄上面的“運行”下的“運行子過程/用戶窗體”就可以了，合并完之后會有提示。提示完成之后就可以把宏計算界面關(guān)閉了。如圖所示：步驟閱讀4.合并完成后記得刪除宏，詳細(xì)操作見一5.刪除多余的首行標(biāo)題：工作表全選自動篩選選擇列（建議選擇文本選項少的列）-勾選重復(fù)的標(biāo)題

4、與空白刪除重復(fù)標(biāo)題與空白三、合并當(dāng)前目錄下所有工作簿的全部工作表1.我們需要把多個excel表都放在同一個文件夾里面，并在這個文件夾里面新建一個excel。如圖所示： 步驟閱讀2.用microsoft excel打開新建的excel表，并右鍵單擊sheet1，找到“查看代碼”，單擊進去。進去之后就看到了宏計算界面。如圖所示：步驟閱讀步驟閱讀3.然后我們把下面這些宏計算的代碼復(fù)制進去（注意XLS或者XLSX），代碼如下，如圖所示：Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As String

5、Dim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & & *.xls)AWbName = ActiveWorkbook.NameNum = 0Do While MyName If MyName AWbName ThenSet Wb = Workbooks.Open(MyPath & & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cell

6、s(.Range(B65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range(B65536).End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange(B1).SelectApplication.ScreenUpdating = TrueMsgBox 共

7、合并了 & Num & 個工作薄下的全部工作表。如下： & Chr(13) & WbN, vbInformation, 提示End Sub步驟閱讀4. 然后找到工具欄上面的“運行”下的“運行子過程/用戶窗體”步驟閱讀5.合并完成后記得刪除宏，詳細(xì)操作見一6.刪除多余的首行標(biāo)題：工作表全選自動篩選選擇列（建議選擇文本選項少的列）-勾選重復(fù)的標(biāo)題與空白刪除重復(fù)標(biāo)題與空白四、多個Excel工作簿的第一個工作表合并成一個新的工作簿1、將需要合并的excel工作簿文件放置在一個文件夾中。2、在該文件夾中，新建立一個新的excel工作簿文件。3、打開新建立的excel工作簿文件，將鼠標(biāo)移動到下方工作表名稱

8、sheet1上右鍵，選擇查看代碼。4、在彈出的代碼編輯窗口中，輸入代碼。5、在代碼窗口中，粘貼下列代碼：Private Sub 合并工作薄() Dim f_name As String Dim bok1 As Workbook, bok2 As Workbook Set bok2 = Nothing f_name = Dir(ThisWorkbook.Path & *.*) 獲得該目錄下的所有EXCEL文件 Do While f_name 開始執(zhí)行循環(huán) If f_name ThisWorkbook.Name Then 如果當(dāng)前的文件不是代碼所在文件，執(zhí)行合并操作 Set bok1 = Work

9、books.Open(ThisWorkbook.Path & & f_name) 打開被合并的文件 If bok2 Is Nothing Then 合并后的文件是否存在 bok1.Sheets(1).Copy 如果合并后的文件不存在，則創(chuàng)建一個 Set bok2 = ActiveWorkbook Else bok1.Sheets(1).Copy Before:=bok2.Sheets(1) 如果合并后的文件存在，則將被合并文件的第一個工作表復(fù)制到合并文件中。 End If bok1.Close 關(guān)閉被合并文件 End If f_name = Dir() 獲取下一個被合并文件名 LoopEnd

10、Sub6、點擊菜單欄運行-運行子過程-用戶窗體。關(guān)閉代碼輸入窗口。打開excel工作簿，可以看到下方已經(jīng)將之前工作簿中的工作表都復(fù)制到了這一新建工作簿中。五、多個Excel工作簿的所有工作表（非空白）合并成一個新的工作簿1、將需要合并的excel工作簿文件放置在一個文件夾中。2、在該文件夾中，新建立一個新的excel工作簿文件。3、打開新建立的excel工作簿文件，將鼠標(biāo)移動到下方工作表名稱sheet1上右鍵，選擇查看代碼。4、在彈出的代碼編輯窗口中，輸入代碼。5、在代碼窗口中，粘貼下列代碼：Sub 合并工作薄() Dim Path As String Dim FileName As Stri

11、ng Dim LastCell As Range Dim Wkb As Workbook Dim WS As Worksheet Dim ThisWB As String Dim MyDir As String MyDir = ThisWorkbook.Path & ChDriveLeft(MyDir, 1) find all the excel files ChDir MyDir Match =Dir$() ThisWB = ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = Fals

12、e Path = MyDir FileName = Dir(Path & *.xls, vbNormal) Do Until FileName = If FileName ThisWB Then Set Wkb = Workbooks.Open(FileName:=Path & & FileName) For Each WS In Wkb.Worksheets Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell) If LastCell.Value = And LastCell.Address = Range($A$1).Address Then Else WS.Copy After:=ThisWorkbook.Sheets(ThisWorkb