vba案例1：合并工作簿，工作表

一：放文件

我应该有把文件资源放上去，第一次弄，不知道你们那边能不能看到excel的电子档表格，没有看到，教教我怎么放上去哦

二:自定义代码规整（便于查看）

接下来，我们进行代码解释，因为有很多自定义变量，我先把自定义变量放在一起查看，不然到后面会忘记变量的含义（会晕头转向）

---

ljj = ThisWorkbook.Path '当前“合并工具“”工作簿的地址

lj = .SelectedItems(1) '此为文件夹的路径

Dim d As Object '此为字典

Dim ww As Workbook '工作簿
Dim sh As Worksheet         '工作表
Dim arr(), brr() '数组
Dim wb As Workbook '工作簿
Set ww = ThisWorkbook '当前“合并工具“”工作簿
bt = TextBox1.Text '窗体里面的，标题行数
bw = TextBox2.Text '窗体里面的，表尾行数

Set sht = ww.Worksheets("目录") '当前“合并工具“”工作簿中的“目录”表

For Each sh In ww.Worksheets '“合并工具”簿中历遍每个工作表（注：sh不是固定含义）

f = Dir(lj & "\*.xls*") '目标文件夹中的工作簿的名称

Set wb = Workbooks.Open(lj & "\" & f, 0) '目标文件夹中的工作簿

mc = Split(wb.Name, ".")(0) '工作簿名称

 For Each sh In wb.Worksheets '历遍目标文件夹中的工作簿中的每个工作表

r = sh.UsedRange.Find(What:="*", SearchDirection:=xlPrevious).Row '''SearchDirection查找方向

'用find方法，表中的最后一行

ms = sh.UsedRange.Find(What:="*", Searchorder:=xlByColumns,SearchDirection:=xlPrevious).Column '' '用find方法，表中的最后一列

rs = .UsedRange.Find(What:="*", SearchDirection:=xlPrevious).Row '目标文件的表复制到“合并工具”最后，在“合并工具”簿中来得到最后一行

rs = .UsedRange.Find(What:="*", SearchDirection:=xlPrevious).Row + 1 '如果有同名表，则得出最后一行+1

f = Dir '获取下一个文件名，并将其赋值给变量 f

wj = .SelectedItems(1) ‘CommandButton3中的单个文件路径（其实就是工作簿路径）

For Each shtt In wb.Worksheets '历遍目标工作簿中的每个工作表

d(shtt.Name) = "" '装入字典

ws = .UsedRange.Find(What:="*", SearchDirection:=xlPrevious).Row + 1 '“汇总”表的最后一行+1

---

三：接下是运行代码顺序，点击表中的合并按钮，则弹出窗体

Sub 合并()
合并界面.Show 0
End Sub

四：接下来浏览文件，执行代码，如下：

Private Sub CommandButton1_Click()
ljj = ThisWorkbook.Path
VBA.ChDir ljj
Set dlgOpen = Applicat