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

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

第1个回答  2010-09-16
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的标签不要改
第2个回答  2016-01-31
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)是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
第3个回答  推荐于2016-03-31
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本回答被提问者采纳

请问如何用vb做宏,为一个excel工作表建立多个副本
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 Aft...

EXCEL中用VB代码编写了一段可以将一个EXCEL工作薄,根据一列不同数据...
你的这个语句,变量FileName里就包含了用户选择的文件名以及扩展名。

excel怎么生成多个副本格式excel怎么生成多个副本格式不变
1. 首先是可以生成多个副本格式。2. 原因是Excel使用VB Editor可以方便地编写宏(Macro),用来实现自动化操作,其中复制工作表生成多副本格式的操作也可以被自动化操作实现。3. 另外,在Excel中也可以使用“复制”和“粘贴”快捷键来复制工作表,再通过修改复制的工作表来生成多个副本格式,这样也可以实现...

excel中使用vb编写宏并使用
1.首先打开excel,选择功能区的视图-宏-录制宏 2.然后在弹出框中填写名称及其说明,便于多个宏时进行区分。点击确定。3.再次点击视图-宏,选择查看宏 4.选择你刚刚添加的宏,点击编辑,就会进入vb编辑器页面 5.在编辑器中编写你想要的功能,(例如截图中的A列第一行填写1,A列第二行填写2),保存...

vb如何在同一个Excel中创建多个工作表并同时写入数据
回答:没必要用VB吧!直接使用vlookup不就得了!如何使用看情况

VB如何操作EXCEL中的宏命令
首先在Excel里面录制宏。然后在VB"工程"菜单中选择"引用"栏;选择Microsoft Excel x.x Object Library 在VB里设置一个按钮Button1 以下代码:Sub button1_click()Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel....

excel vba如何将一个多个工作表的工作簿按一个筛选条件去分成多个工作...
如果经常做这样的表格,建议你下个“方方格子”,去百度下载安装,安装完后再打开表格就在你的表任务栏了,可以对工作表和工作簿进行拆分、汇总、合并等等,对数据分析帮助很大,一键就能拆分、合并等

EXCEL的宏如何用VB编写循环
我可以帮你,但是程序可能需要根据你的需求做更改.Sub 自动汇总()'功能:合并某文件下所有Excel工作簿中的第一个工作表 '使用:将要合并的工作簿拷贝到某文件夹下,新建一个工作簿后执行该宏 Dim WBName As String '汇总工作簿名称 Dim WBCurrent As String '当前正在合并的工作簿 Dim i As ...

vb如何实现对同一个Excel中很多个表的操作
对同一个Excel中很多个表的同时操作,要用到数组 Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 如果不知道每个表格的名称,则 Sheets(Array(Sheets(1).Name, Sheets(2).Name, Sheets(3).Name)).Select 如果select单个表,要用到循环。For i = 1 To Sheets.Count Sheets(i).selec...

vb创建带宏的excel的问题
大哥,Excel里面本身就有宏的。打开Excel后,按Alt+F8就行了,或者“工具”——(下拉)宏,然后你就可以自己用vb语言编程了,录制也行。个人认为录制比较方便,然后用“For Each 。。。”语句改改最快了

相似回答