excel表格宏怎么整合

1.Excel 宏如何合并?

1.首先把需要合并的excel工作薄整理到一个文件夹中，如图，用来合并到一起的工作薄的名字要注意，这里取名叫“合并工作薄”。

2.打开这个excel表，直接按键ALT+F11，进入下图界面。双击如图所示位置的sheet1。

3.如图，打开准备好的VBA代码，复制到这个空白的代码编译处，代码如下：Sub 工作薄间工作表合并（）Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件（*.xls）,*.xls", MultiSelect:=True, Title：="合并工作薄"）X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub4.注意事项，如图，注意工作薄的名字，同时，注意代码中设定的excel版本。如果出现无法编译的情况，可以用这个共享的txt。

5.回到“合并工作薄”的excel表格中，如图，点击工具（没有的到excel的选项中添加），选择宏。6.选择宏以后会出现下图界面，直接双击图中选项。

7.双击后弹出选择待合并的文件夹中工作薄，直接全选要合并的工作薄即可。8.如图，这就是合并后的效果，这两个工作薄是下载的2014年的高考录取分数线的内容，效果不错，而且合并工作薄本身的工作表是不会被占用的，是新建的工作表。

2.如何使用宏合并多个表格

With Range(".AddIndent = False

.VerticalAlignment = xlCenter

.Orientation = 0

;A1;)

.ShrinkToFit = False

:D4"A1 到 D4 合并.ReadingOrder = xlContext

.WrapText = False

.HorizontalAlignment = xlCenter

代码.IndentLevel = 0

3.excel宏命令合并两表 如下所示:

Sub 汇总（）

Dim Ar, D As Object, I As Long

Application.ScreenUpdating = False

Set D = CreateObject("scripting.dictionary")

Ar = Sheets("sheet2").[A1].CurrentRegion

For I = 2 To UBound(Ar)

D(Trim(Ar(I, 1))) = Ar(I, 2)

Next

Ar = Sheets("SHEET1").Range("A1:C" & Sheets("SHEET1").[A65536].End(3).Row)

Ar(1, 3) = "工资2"

For I = 2 To UBound(Ar)

If D.exists(Trim(Ar(I, 1))) Then

Ar(I, 3) = D(Trim(Ar(I, 1)))

D.Remove (Trim(Ar(I, 1)))

End If

Next

Sheets("sheet3").Cells.Clear

Sheets("sheet3").[A1].Resize(UBound(Ar), 3) = Ar

Sheets("sheet3").Range("A" & UBound(Ar) + 1) = Application.Transpose(D.KEYS)

Sheets("sheet3").Range("C" & UBound(Ar) + 1) = Application.Transpose(D.ITEMS)

MsgBox "完成"

End Sub具体可能还要根据实际表格进行修改。