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

 

 在需要合并的sheet界面,按alt+F11,点击试图,打开代码窗口,输入代码,按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


评论关闭
IT干货网

微信公众号号:IT虾米 (左侧二维码扫一扫)欢迎添加!