excel问题：我想把此图的表格在同一工作薄自动复制或生成30份，该怎样操作？

更新时间2021-01-01 11:10:09

首先你的工作薄中在复制前只有当前的图表。

ALT+F11---插入模块--复制下面的代码---然后运行宏就可以了。

Sub test()
    

Dim i As Integer      

i = Sheets.Count
    

For i = 1 To 30
          

If i <= 30 Then
          

Sheets(1).Copy after:=Sheets(i)
          

End If
    

Next 

End Sub

相关标签:excel