如何将EXCEL中同一个工作薄多张工作表合并
答案:2 悬赏:0 手机版
解决时间 2021-12-30 15:11
- 提问者网友:黑米和小志
- 2021-12-30 02:16
如何将EXCEL中同一个工作薄多张工作表合并
最佳答案
- 五星知识达人网友:洎扰庸人
- 2022-01-10 04:14
在你的当前工作簿下新建一个sheet然后你在这个sheet和标签处右键 查看代码(找不到的直接按一下alt+F11) 把下面 的代码复制进去 然后点上面的运行 运行子程序就可以了
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
全部回答
- 1楼网友:孤独的牧羊人
- 2022-01-10 04:25
需要用到宏
第一步:摁下alt + f11,进入vba编辑器。
第二步:双击编辑器左上角的“工程资源管理器”里面的“thisworkbook”,在右侧的代码区粘贴下面的代码:
sub 合并工作表()
application.displayalerts = false
application.screenupdating = false
for i = 1 to 50
sheets(i).select
activesheet.range("a1").currentregion.select
selection.copy
worksheets(51).activate
range("a65536").end(xlup).offset(1, 0).select
activesheet.paste
next
application.displayalerts = true
application.screenupdating = true
end sub
第三步:摁f5运行即可完成合并。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯