EXCEL使用代码记录

本文仅以个人记录，方便温习查找，如侵权，请及时告知，立刻删除。

1. 将多个Sheets合并至一个Sheets。
   1. 选择要填写合并后内容的Sheet，单击右键，选择查看代码。
   2. 将下方代码，复制到代码区域。
   3. 点击F5或上方工具栏 ’执行‘，运行代码即可。

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

*此方法百度经验检索。