用户名*
邮箱*
密码*
确认密码*
验证码* 点击图片更换验证码
找回密码
忘记密码了？输入你的注册邮箱，并点击重置，稍后，你将会收到一封密码重置邮件。
当笔记本了
（合并同意表格的多个分页代码）
Sub yy()
Sheets.Add after:=Sheets(Sheets.Count)’新建一个工作表放在最后
For i = 1 To Sheets.Count – 1’从第一个工作表到倒数第二个工作表
With Sheets(i)
n = .[a65536].End(xlUp).Row’分别求出最大行号
.Range(“a2:ax” & n).Copy ActiveSheet.[a65536].End(xlUp).Offset(1, 0)’取a2开始到最后的数据copy到新表数据的下一行。
End With
Next
End Sub
昵称*
E-Mail*
回复内容*
回复 ( 1 )
（合并同意表格的多个分页代码）
Sub yy()
Sheets.Add after:=Sheets(Sheets.Count)’新建一个工作表放在最后
For i = 1 To Sheets.Count – 1’从第一个工作表到倒数第二个工作表
With Sheets(i)
n = .[a65536].End(xlUp).Row’分别求出最大行号
.Range(“a2:ax” & n).Copy ActiveSheet.[a65536].End(xlUp).Offset(1, 0)’取a2开始到最后的数据copy到新表数据的下一行。
End With
Next
End Sub![]()