Question

请问如何用vb做宏，为一个excel工作表建立多个副本

请问在同一工作簿内，如何为一个工作表建立多个副本？
如为工作簿book1中的sheet1工作表，建立10个相同副本，并将其命名为1、2、3……10
谢谢

Answer 1

Sub a()
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "10"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "9"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "8"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "7"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "6"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "5"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "4"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "3"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "2"
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Sheets("Sheet1 (2)").Name = "1"
End Sub
我运行过了，可以的sheet1的标签不要改

Answer 2

vb实现代码如下：

Sub Macro1()
Sheets("sheet1").Move before:=Sheets(1)
For i = 1 To 10
Sheets("Sheet1").Copy before:=Sheets(2)
Sheets(2).Name = 10 - i + 1
Next
End Sub

Visual Basic（VB）是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

Answer 3

Sub Macro1()
Sheets("sheet1").Move before:=Sheets(1)
For i = 1 To 10
Sheets("Sheet1").Copy before:=Sheets(2)
Sheets(2).Name = 10 - i + 1
Next
End Sub