轻松合并EXCEL中多个工作薄(sheet)到一个工作薄中

2. 菜单栏里选择：INSERT-Module

3. 将出现一个新的窗口：

4. 输入下列文字

Option Explicit Sub hbgzb()

Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer flag = False

For i = 1 To Sheets.Count

If Sheets(i).Name = \"Merge\" Then flag = True Next

If flag = False Then Set sh = Worksheets.Add sh.Name = \"Merge\"

Sheets(\"Merge\").Move after:=Sheets(Sheets.Count) End If

For i = 1 To Sheets.Count

If Sheets(i).Name <> \" Merge\" Then hrow = Sheets(\"Merge\").UsedRange.Row

hrowc = Sheets(\"Merge\").UsedRange.Rows.Count If i = 1 Then

Sheets(i).UsedRange.Copy Sheets(\"Merge\").Cells(hrow, 1).End(xlUp) Else

Sheets(i).UsedRange.Copy Sheets(\"Merge\").Cells(hrow + hrowc - 1, 1).Offset(1, 0) End If End If Next i End Sub

5. 按下“F5”，运行即可。（看不到有什么反应，但是已经完成）

6. 关闭上面打开的窗口，就可以看到所有工作薄里面的内容在最后一个名为“Merge”的工

作薄里