excel中运用Vba做下面操作。求代码

Question

从第一个工作表中调用总的子工作表个数

如图。

A1总共有260个数据就要在同一个工作簿中创名字分别为1、2、...260并且是要复制前面的第一个工作表，然后改名为相应的连续数字。因为里面有些格式不能改。还要把H1中改为相应工作表的数字
（这个是工作表名为136）
（工作表名为136）
后面创建的每个用数字命名的工作表都要在H1改为相应的数字

Answer 1

Option Explicit
Sub test()
Dim i, j As Integer
i = Range("A65535").End(xlUp).Row
For j = 1 To i
 ActiveWorkbook.Sheets(1).Copy After:=Sheets(Sheets.Count)
 Sheets(Sheets.Count).Name = j
 Sheets(Sheets.Count).Range("H1") = j
Next
End Sub

追问

大神报错啦。。您老送佛送到西，，再改改吧

我的表是这样的（要复制“1”）

然后创建像这种

并且H1改为相应的文件表名就可以了



追答

你把你之前创建出来的1、2、3之类工作表删除，然后再运行这个代码。

追问

1就是我要复制的表了、如果删掉去复制谁？1是基础表。后面复制成2、3...直到sheet1中A栏最后一个数字（要求和A栏中对应的一样）

追答

“复制前面的第一个工作表”，那就是你描述错误了，1在上图中就是第二个表，改为下面的

（注意：你截图中没有显示最重要的A栏第一格的内容，我完全是假定你的A栏数据都是从1开始的）

Option Explicit
Sub test()
Dim i, j As Integer
i = Range("A65535").End(xlUp).Row
For j = 1 To i
 ActiveWorkbook.Sheets(2).Copy After:=Sheets(Sheets.Count)
 Sheets(Sheets.Count).Name = j+1
 Sheets(Sheets.Count).Range("H1") = j+1
Next
End Sub

追问

到256就停了