如何在excel/wps表格中合并页签

来源:互联网 发布:双非球面 知乎 编辑:程序博客网 时间:2024/04/28 16:18

1、新建一个页签,以便放汇总数据。

2、按alt+F11,进入宏工具。

3、在你新建的页签上双击,右侧会出现可填写内容的页面

4、输入以下代码:

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

5、然后点:运行—“运行子过程或用户窗体”。


如图:


原创粉丝点击