目录

一、总说明

1 当前需求

2 操作和注意点

3 运行代码

二、代码逐句拆解 - 前

1 Sub＆End Sub

2 Dim As

3 关闭屏幕自动刷新

4  MyPath = ActiveWorkbook.Path 

①  拆解 ActiveWorkbook.Path   

② 拆解 MyName = Dir(MyPath & "" & "*.xlsx") 

③AWbName = ActiveWorkbook.Name

三、代码逐句拆解 - 中

1  Num = 0 和 Num = Num + 1

2 Do While 

3  IF   Then ； Workbooks.Open( )

4   With Workbooks(1).ActiveSheet

5 选取表内所有单元格

四、代码逐句拆解 - 后

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

2 Wb.Close False

3 MyName = Dir

4 LOOP

5 选中单元格

6 MsgBox 

---

一、总说明

1 当前需求

需要将多个excel表格里的内容，合并到同一个表格里，每个待合并的表格列项相同，行内容不同。

2 操作和注意点

操作：将所有待合并的excel表格，放到同一文件夹里 → 仅打开一个xlsm表，作为运行操作，待合并的表格不打开 → 开发工具 - 宏 → 输入运行代码 → 运行

注意点：

• 运行的宏文件格式另存为 .xlsm
• excel表格内仅保留需要合并的内容，注意待合并的表格，有无隐藏的sheet，运行前要删除。因为宏运行时，会自动把隐藏的表格一起合并
• 合并表格仅合并筛选出来的单元格，所以合并前可以先检查一下，要合并的表格有无筛选或隐藏

3 运行代码

总运行代码如下，可直接复制到 宏，保存并运行即可  

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 & "\" & "*.xlsx")
 
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("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
 
For G = 1 To Sheets.Count
 
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
 
Next
 
WbN = WbN & Chr(13) & Wb.Name
 
Wb.Close False
 
End With
 
End If
 
MyName = Dir
 
Loop
 
Range("B1").Select
 
Application.ScreenUpdating = True
 
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" 
& Chr(13) & WbN, vbInformation, "提示"
 
 
 
End Sub

二、代码逐句拆解 - 前

引用语句的前部如下：

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 & "\" & "*.xlsx")
 
AWbName = ActiveWorkbook.Name

1 Sub＆End Sub

• 表示一个宏过程的开头，后面跟的是该宏的命名名称。End Sub表示一个宏过程的结束。两者对应出现，分别在宏的最开头和最结尾的位置。
• 引用上述代码部分：

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

End Sub

2 Dim As

引用上述代码如下，即声明Wb作为一个工作簿对象，WbN为字符型；声明G、NuM为长整数型；声明BOX为字符型：

Dim MyPath, MyName, AWbName
 
Dim Wb As Workbook, WbN As String
 
Dim G As Long
 
Dim Num As Long
 
Dim BOX As String

• Dim即声明，用于定义变量，以此设定各个变量的类别。
• 形式为：dim + 变量名 + as + 数据类型 

名称	类型	字节大小	包含的数据及范围
Integer	整数型	2	-32768到32767的整数
Long	长整数型	4	-2147483648到2147483647的整数
Byte	字节型	1	0到255的整数
Date	日期型	8	100年1月1日到9999年12月31日
String	字符型		0-6553个字符
Object	对象型	4	任何对象引用
Boolean	布尔型		只有两个值True/-1，或False/0
workbook			工作簿

 

3 关闭屏幕自动刷新

 用于关闭程序运行时，屏幕的不断刷新。

• 可在dim声明后，可在程序开始之前，输入 Application.ScreenUpdating = False
• 在end sub以前，即程序运行的最后，不再出现屏幕刷新的位置，输入 excel.Applicantion.ScreenUpdating = TRUE

引用代码部分如下：

Application.ScreenUpdating = False
                  ···

Application.ScreenUpdating = True

4  MyPath = ActiveWorkbook.Path 

引用上述代码如下：

MyPath = ActiveWorkbook.Path
 
MyName = Dir(MyPath & "\" & "*.xlsx")
 
AWbName = ActiveWorkbook.Name

①  拆解 ActiveWorkbook.Path   

• ACTIVE当前的，活动的
• workbook 工作薄
• path 路径

即当前（选择的、使用的、激活的）的工作簿的路径

② 拆解 MyName = Dir(MyPath & "" & "*.xlsx") 

说明：Dir函数的作用是返回目录下的指定文件名称，即该行引用语句为查找该目录下格式为xlsx的当前第一个activeworkbook，令Myname为当前的第一个文件名。若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.xlsx文件。

表现形式：Dir (pathname,  attributes)

• pathname：用来指定文件名的字符串表达式。可以包含目录、文件夹或驱动器。如未设置 pathname，则会返回零长度字符串 ("")。
• attributes ：用来指定文件属性。如省略了后半段的attributes，则返回匹配 pathname，但不包含属性的文件。

e.g1. 返回当前文件夹中,第一个属性为TEXT的文件名称:

         = Dir ( "SomePath", MacID("TEXT") )

e.g2. 为选中文件夹中所有文件，指定一空串:

         = Dir("")

③AWbName = ActiveWorkbook.Name

  令当前活动的工作簿名，赋名为awbname

三、代码逐句拆解 - 中

引用语句的中部如下：

Num = 0
 
Do While MyName <> ""
 
IF MyName <> AWbName Then
 
Set Wb = Workbooks.Open( MyPath & "" & MyName )
 
Num = Num + 1
 
With Workbooks(1).ActiveSheet
 
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count
 
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

NEXT

1  Num = 0 和 Num = Num + 1

• Num = 0：设定FOR循环的初始值，说明初始化的num值从0开始
• Num = Num + 1：设置此处开始num=num+1，即运行次数+1

2 Do While 

do while 循环可视为 while 循环的前奏。在检查while()条件是否为真前，该循环会先执行一次do语句。如条件为真，则会重复do while循环,直到while后跟的条件为假。

Do While MyName <> " "

该语句表示：当条件 MyName 不等于 空值，则往下执行循环操作，也就是当指定路径中有文件时，进行循环。

3  IF   Then ； Workbooks.Open( )

IF MyName <> AWbName Then Set Wb = Workbooks.Open( MyPath & "" & MyName )

如果 MyName 不等于 AWbName  则 打开符合条件的文件，赋名其为WB

包含语句如下：条件语句     IF THEN   

                         打开工作簿  Workbooks.Open（）

4   With Workbooks(1).ActiveSheet

• 作用于 工作簿 (1) 的活动工作表。
• WITH的作用是 简化代码输入，省略前面的所有赋值。
• WITH 结束后的字节加上 END WITH

5 选取/复制表内所有单元格

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

                                              ....

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

第一句表示：选取在当前工作薄中的B列，该列的最后非空单元格后2格，加上合并文件名，且不包含扩展名（合并的最大行数为65536）。逐步拆解如下：

• Range("B65536").End(xlUp).Row   为返回B列数据区域最后一行的行号，相当于在B65536按CTRL+↑后，选中的那个单元格的行号。如A999是空单元格，A1000:A65536都有数据，那么这段代码得到的行号就会是1000。
• .Cells( ）  cells 即单元格，函数用于读取单元格内容，将内容写入单元格。cells(1,1)代表第一行第一列,也就是A1单元格，与Range("A1")所指一样
• End(xlUp)：向上查找
• Left(MyName, Len(MyName) - 4)   和excel使用的left、len函数作用一样。从左开始提取字节，提取到字符长度的倒数第4个字符结束。

第二句表示：复制所有sheet的单元格

• UsedRange.Copy：   UsedRange表示属性，指工作表中已使用过的单元格区域。和COPY组合使用，即复制已使用过的单元格。

6 For G = 1 To Sheets.Count

• 从1开始，选取到所有sheet的总数
• Sheets.Count表示所有sheet的合计数

四、代码逐句拆解 - 后

引用语句的尾部如下：

WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
 
MyName = Dir
 
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" 
& Chr(13) & WbN, vbInformation, "提示"
  
End Sub

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

• 即 把当前所有的工作簿名称另起一行，放入字符串WbN中。工作簿名称字符串（wbn）=原工作簿名称集合(wbn)+回车（chr(13)）+新工作簿名称（wb.name）
• chr(13)字符表示回车键，整合chr含义如下：

  chr(13)	回车
  chr(10)	换行
  chr(32)	空格
  chr(9)	tab

2 Wb.Close False

该语句用于保存运行过的Excel文件时，不弹出是否保存的提示框。

3 MyName = Dir

• 如上，Dir 函数来检查某些文件或目录是否存在。
• 因为是第二次调用 Dir 函数，所以不用带任何参数，该语句会返回同目录下的下一个 *.xlsx 文件。

4 LOOP

do while...loop：和上述的 do while 联合使用，类型if语句，loop放在循环的结尾处。

5 选中单元格

Range("B1").Select

即选中B1这个单元格

6 MsgBox 

该语句的作用为弹出一个对话框，对话框内容为“共合并了num个工作簿下的全部工作表内容。如下：”

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

• MsgBox 即弹出对话框。形式如下：MsgBox "内容" , 参数 , "标题"
• vbInformation 是msgbox的参数，显示 Information Message 图标。作用是使对话框上显示信息的图标,并且只有确定的按钮。

P.S.可算是敲完啦！4578个字！以上就是整合的该段代码全部含义。