合并EXCEL多个sheet

新建一个空白EXCEL，把需要合并的表和空白EXCEL放在一个文件夹中

在EXCEL中，到合并表里打开宏，将下列代码进行粘贴并保存。然后返回你需要合并的工作表中。或按alt + f11,双击工程资源管理器里面的合并表的SHEET,在右侧的代码区粘贴如下代码。运行此宏，就合并了。

Sub 合并sheets()

n = 12 '源表个数，根据需要修改！

nstart = 9 '每个单表数据的起始行数，根据需要修改！

k = nstart '目标表的行标

For i = 1 To n

irow = nstart '行标

While Sheets(i).Cells(irow + 1, 1) <> "" '后面个1以第1列数据为结束标示,确定源表的行数，根据需要修改！

irow = irow + 1

Wend

Sheets(i).Rows(nstart & ":" & irow).Copy '复制源数据行

Sheets(n + 1).Activate

Sheets(n + 1).Cells(k, 1).Select

ActiveSheet.Paste '粘贴数据

k = k + irow - nstart + 1

Next i

End Sub

Sheet中的格式一样，但有一些公式有误，要全部替换更改，但Sheet 太多了，一个一个来修改，比较麻烦，有什么方便的方法吗？

1、选择第一个表，

2、向右滑动滚动条，看到最后一个表

3、按住”SHIFT“，点击最后一个表

现在所有表都选中了，调整一个，其他的表都变了，