2、RD可编辑文档1.在新建的sheet表中“右键”,找到“查看代码”,然后看到宏计算界面。如图所示:技术资料专业分享WORD可编辑文档1.看到宏计算界面,我们就只需要把下面的代码复制进去,代码如下,效果如下:Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToSheets.Count IfSheets(j).Name<>ActiveSheet.NameThen X=Range("A65536").End(xlUp).Row+1 Sheets(j).UsedRange.CopyCells(X,1) End