excel问题:我想把此图的表格在同一工作薄自动复制或生成30份,该怎样操作?
首先你的工作薄中在复制前只有当前的图表。
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
热门标签: