合并当前工作簿下的所有工作表【海晏吧】

12月08日漏签0天

海晏吧关注：6,447贴子：7,143

2回复贴，共1页

<返回海晏吧

合并当前工作簿下的所有工作表

只看楼主收藏回复

当sheet格式一致时候，需要合并到一个sheet，可以使用如下代码：

在需要合并的sheet界面，按alt+F11,点击试图，打开代码窗口，输入代码，按F5执行。

送TA礼物

IP属地:湖北

1楼2020-02-27 07:27回复

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

IP属地:湖北

2楼2020-02-27 07:29

不感兴趣

开通SVIP免广告

输入上述代码后运行
注意：代码一定要输入正确，出现宏提示说明代码输入有误。
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

IP属地:湖北

3楼2020-02-27 07:45

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧热议榜

2回复贴，共1页

<返回海晏吧

发表回复

发贴请遵守贴吧协议及“七条底线”贴吧投诉

内容:

使用签名档查看全部

发表

保存至快速回贴

日	一	二	三	四	五	六

合并当前工作簿下的所有工作表

登录百度账号

扫二维码下载贴吧客户端