求助

流水之志

使用论坛大神发的语句如下：

Sub 复制()
Dim i As Integer

For i = 2 To 11

Sheets(i).Range("b6").Value = Sheets(1).Range("a" & i).Value
Sheets(i).Range("b7").Value = Sheets(1).Range("b" & i).Value
Sheets(i).Range("c7").Value = Sheets(1).Range("c" & i).Value
Sheets(i).Name = Sheets(i).Range("b6").Value

Next

End Sub

我更改为：

Sub 复制()

Dim i As Integer

For i = 1 To 7

Sheets(i).Range("a1").Value = Sheets(1).Range("a" & i).Value

Sheets(i).Range("b1").Value = Sheets(1).Range("b" & i).Value

Sheets(i).Range("c1").Value = Sheets(1).Range("c" & i).Value

Sheets(i).Name = Sheets(i).Range("a1").Value

Next

End Sub

为了实现将表格中每行数据另立新表，并命名的目的。可以成功运行，但第一行没有另立新表，从第二行开始建立第二个表，运行中提示应用程序或对象错误，但查看表格已经成功。

请问各位大侠，有没有更好的方法，或者能够解决该问题的？

281334055

i=1的时候不是和现有表冲突了？从2开始循环吧

流水之志

281334055 发表于 2014-9-6 22:09
i=1的时候不是和现有表冲突了？从2开始循环吧

我改成2，效果一样。
提示应用程序或对象错误，我点调试，在命名那一行显示黄色。

281334055

流水之志 发表于 2014-9-7 07:43
我改成2，效果一样。
提示应用程序或对象错误，我点调试，在命名那一行显示黄色。

打包发下附件吧

流水之志

我是拿这个做的实验，你给看看。

流水之志

281334055 发表于 2014-9-7 08:05
打包发下附件吧

忘记点回复了 ，看楼下。表格里只有几行，做个实验，我对这方面是完全不懂。

281334055

流水之志 发表于 2014-9-7 13:16
忘记点回复了 ，看楼下。表格里只有几行，做个实验，我对这方面是完全不懂。

报错是因为你i=7的时候，sheet(1)里的第7行是空的

在最后一句给sheet(i).name赋值的时候，不能让名称为空，所以报错了，i=2 to 6的时候是没有问题的

你把i改成 2 to 6就不报错了

流水之志

281334055 发表于 2014-9-7 20:54
报错是因为你i=7的时候，sheet(1)里的第7行是空的

在最后一句给sheet(i).name赋值的时候，不能让名称为 ...

原来如此，十分感谢！对这方面完全小白，因为朋友有这个需求，百度到该论坛，感谢！