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

发布网友 发布时间：2022-04-23 00:26

我来回答

共3个回答

热心网友 时间：2023-09-17 22:43

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的标签不要改

热心网友 时间：2023-09-17 22:43

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）是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

热心网友 时间：2023-09-17 22:44

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