100多个Excel文件,每个文件里一个sheet,想把这些放到一个Excel文件里,请问用什么方法?谢谢老师!
![](/wenda/images/newWd/search.png)
问题已解决
所属话题:
#Excel#
![](http://member.chinaacc.com/homes/resources/images/home/avatar/3.jpg)
84785033 | 提问时间:2021 05/07 17:58
将一个工作簿中的多个工作表sheet合并到一个里面:
1. 在当前工作簿中新添加一个sheet。
2. 点击 开发工具 >> Visual Basic >> 插入 >> 模块,将下面的代码输入模块窗口中
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("A1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
End Sub
2021 05/07 18:37
相关问答
查看更多最新问答
查看更多