将Excel里面的sheet合并
Posted 那时的吻狠陶醉
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了将Excel里面的sheet合并相关的知识，希望对你有一定的参考价值。
首先新建一个sheet，按快捷键alt+f11，再将下面代码复制进去
代码：
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)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
如下图：
以上是关于将Excel里面的sheet合并的主要内容，如果未能解决你的问题，请参考以下文章
如何快速将多个excel表格的所有sheet合并到一个sheet中
办公自动化18-将多个excel表中的多个sheet合并到一个excel中的一个sheet