vba自动合并sheet-预算文件

1.特定的vba如下：

Sub 合并当前工作簿下的所有工作表()

    Application.ScreenUpdating = False

    For 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)

          'Sheets(j).Range("B5:O26").Copy Cells(X, 1)

          Sheets(j).Range("B6") = "类型"

          Sheets(j).Range("p6") = "大部"

          Sheets(j).Range("q6") = "大区"

          Sheets(j).Range("r6") = "门店"

          md = ""

          If Sheets(j).Range("o5") = "" Then

            md = Sheets(j).Range("n5")

          Else

            md = Sheets(j).Range("o5")

          End If

          Sheets(j).Range("p7:p26") = Sheets(j).Range("j5")

          Sheets(j).Range("q7:q26") = Sheets(j).Range("l5")

          Sheets(j).Range("r7:r26") = md

          Sheets(j).Range("B6:r26").Copy

            Cells(X, 1).PasteSpecial Paste:=xlPasteValues

      End If

    Next

    Range("B1").Select

    Application.ScreenUpdating = True

    MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

2.收到反馈文件后，新建一个result的空sheet，并删除不需要合并内容；

3.按键盘alt+f11打开vba界面，双击左侧的result页，打开vba编写界面

4.将vba复制进去

5.另存为xlsm格式

6.点击上方的三角形（运行宏）即可