首页 > 其他 > 详细

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

时间:2017-08-30 17:55:05      阅读:279      评论:0      收藏:0      [点我收藏+]
Sub 合并当前工作簿下的所有工作表()
Dim j As Single

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

 

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

原文:http://www.cnblogs.com/m0488/p/7454569.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!