如何批量把几个excel的工作表

答案:3 悬赏:80 手机版

解决时间 2021-02-27 02:18

提问者网友：最爱你的唇
2021-02-26 15:40

如何批量把几个excel的工作表

最佳答案

五星知识达人网友：掌灯师
2021-02-26 16:02

Sub 汇总数据()
Sheets.Add
With ActiveSheet
.Name = "汇总表" & Format(Now, "hhmmss")
For Each s In ThisWorkbook.Sheets
s.UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1, 1)
Next
End With
End Sub

全部回答

1楼网友：千夜
2021-02-26 16:53

右键单击工作表标签---选定全部工作表，设置工作表格式就行了。记得设置完以后要单击任意一张工作表标签，取消全部选定。估计又是客户或产品的问题，一般也不需要这么多表的。新建200张表，还要对工作表重命名，也够累的选项工具--选项--常规---新建工作薄的工作表数，可以建成一个有256张表的工作薄。如果是excel2007,在office按钮的exce选项---常用---新建工作薄时，设置表数量就行了

2楼网友：想偏头吻你
2021-02-26 16:34

Sub CombineWorkbooks() Dim m As Integer Dim n As Integer Dim o As Integer For m = 2 To 6 n = Sheets(m).[a65536].End(xlUp).Row o = Sheets(1).[a65536].End(xlUp).Row Sheets(m).Select Range("a1", "z" & n).Select Range("a" & n).Activate Selection.Copy Sheets(1).Select Range("a" & o + 1).Select ActiveSheet.Paste Next End Sub 特别注意这一段字符“For m = 2 To 6”，由于要汇总的数据的工作表有5个，加上“合并报表”这个工作表本身，一共是6个工作表，因此“For m = 2 To 6”中选择输入6，如果后面要汇总的数据工作表有3个，则是录入4，如果有12个，则是录入13，依次类推。追答：格式要一样。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息