[已解决]批量建表。。。。。。

W0898

怎么样同格式批量建表31张

qBxg3yNS.zip (7.32 KB, 下载次数: 19)

2010-10-22 11:05 上传

点击文件名下载附件
批量建表。。。。。。

最佳答案

月排行榜 / 总排行榜

amulee

2010-10-22 11:25

Sub Test()
    For i = 1 To 31
        Sheet1.Copy after:=Sheets(Sheets.Count)
    Next i
End Sub

跳转到最佳答案楼层

amulee

Sub Test()
    For i = 1 To 31
        Sheet1.Copy after:=Sheets(Sheets.Count)
    Next i
End Sub

hhzjxss

Sub 批量复制工作表()
    For I = 2 To 31
        Sheets("表1").Copy after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = "表" & I
    Next I
End Sub