VBA合并工作表（下次再放图吧，下次再加点字吧）

1. 添加工作表-在sheet6工作表后添加三个新的工作表

Sub 添加工作表()

Worksheets.Add after:=Worksheets("Sheet6"), Count:=3

End Sub

2. 删除指定工作表

Sub 删除工作表()

Worksheets("Sheet7").Delete

End Sub

3.合并工作簿下的工作表

Sub 合并工作簿下工作表()

Dim f As Long '定义一个变量，用来存放汇总表将要粘贴数据的位置

f = 1

a = Worksheets.Count '获取工作簿下工作表数量

Worksheets("汇总表").Cells.Delete '合并前将汇总表数据删除

For i = 1 To a - 1 '遍历工作表（由于将汇总表放置最后位置，所以遍历除汇总表外的所有工作表）

Set b = Worksheets(i) '定义一个工作表对象，表示当前工作表

c = b.Name '获取当前工作表名称

MsgBox c '弹窗，弹出当前工作表名称，测试后可删除

d = b.UsedRange.Rows.Count '获取当前工作表有数据的最后一行

Set e = Worksheets("汇总表") '定义一个工作表对象，表示汇总表

b.Rows("1:" & d).Copy '复制第一行至数据最后一行

e.Range("a" & f).PasteSpecial xlPasteAll '粘贴至汇总表的有数据的下方

f = f + d '汇总表的下一次粘贴位置，第一次从第一行开始，后续叠加已拷贝的数据行数

Next i

End Sub