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

*此方法百度经验检索。

你可能感兴趣的:(EXCEL)