[已解决]求助，哪位老师能帮我改一下这段代码吗？

tong_ · 发表于 2010-12-6 16:21

Sub 创建工作表()
'
' 创建工作表 Macro
'

'
    Sheets("687129兰色").Select
    Sheets("687129兰色").Copy Before:=Sheets(7)
    ActiveWindow.SmallScroll Down:=-6
    Sheets("目录").Select
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "YB001"
    Sheets("687129兰色 (2)").Select
    Sheets("687129兰色 (2)").Name = "YB001"
    Range("B1:H1").Select
End Sub

我录制的一个宏，我想他自动创建工作表，然后工作表的名称就是目录里从A4到A68单元格的名称，比如我建第一个工作表的时候的名称用的是A4单元格的名称，建第二个工作表的时候用的名称就是A5单元格的名称了，不知道这段代码怎么改

最佳答案

月排行榜 / 总排行榜

白开水的味道

2010-12-6 17:50

出现了的工作表不添加

za1PKYOI.rar (37.62 KB, 下载次数: 17)

raulerini · 发表于 2010-12-6 16:26

Sub raulerini()
Dim ws As Worksheet
For i = 4 To 68
Set ws = Worksheets.Add
ws.Name = Sheets("目录").Range("A" & i).Value
Set ws = Nothing
Next
End Sub

[此贴子已经被作者于2010-12-6 16:27:22编辑过]

tong_ · 发表于 2010-12-6 16:39

QUOTE:

以下是引用tong_在2010-12-6 16:21:00的发言：

Sub 创建工作表()
'
' 创建工作表 Macro
'

'
    Sheets("687129兰色").Select
    Sheets("687129兰色").Copy Before:=Sheets(7)
    ActiveWindow.SmallScroll Down:=-6
    Sheets("目录").Select
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "YB001"
    Sheets("687129兰色 (2)").Select
    Sheets("687129兰色 (2)").Name = "YB001"
    Range("B1:H1").Select
End Sub

我录制的一个宏，我想他自动创建工作表，然后工作表的名称就是目录里从A4到A68单元格的名称，比如我建第一个工作表的时候的名称用的是A4单元格的名称，建第二个工作表的时候用的名称就是A5单元格的名称了，不知道这段代码怎么改

ws.Name = Sheets("目录").Range("A" & i).Value这里是不是错了，我运行宏的时候提示让调试

raulerini · 发表于 2010-12-6 16:47

你的工作表名称是放在"目录"表中吗？范围是A4：A68？

并且你的工作表中不能有已经建立的同名的工作表。

这样试试：

Sub raulerini()

on error resume next
Dim ws As Worksheet
For i = 4 To 68
Set ws = Worksheets.Add
ws.Name = Sheets("目录").Range("A" & i).Value
Set ws = Nothing
Next
End Sub

tong_ · 发表于 2010-12-6 16:55

我工作表里除了目录以外还有其它的工作表，然后其中有一个工作表里面我做了东西进去的，当成一个模版在用，我新建的工作表里面的内容和模版工作表里的内容是一样的，但工作表名称是用的目录里A4:A68单元格里的名称

raulerini · 发表于 2010-12-6 17:02

明白了。还是上附件吧。不知道你模板工作表是什么样子的。

tong_ · 发表于 2010-12-6 17:07

QUOTE:

以下是引用tong_在2010-12-6 16:55:00的发言：
我工作表里除了目录以外还有其它的工作表，然后其中有一个工作表里面我做了东西进去的，当成一个模版在用，我新建的工作表里面的内容和模版工作表里的内容是一样的，但工作表名称是用的目录里A4:A68单元格里的名称

32fBnH1f.rar (35.79 KB, 下载次数: 0)

白开水的味道 · 发表于 2010-12-6 17:08

注意要吧目录这个表放在第一个表上

Sub baikaishui()
Dim ws As Worksheet
For i = 68 To 4 step -1
Sheets("687129兰色").Copy after:=Sheets("目录")
Sheets(2).Name = Sheets("目录").Range("A" & i).Value
Next
End Sub

白开水的味道 · 发表于 2010-12-6 17:50

出现了的工作表不添加

za1PKYOI.rar (37.62 KB, 下载次数: 17)

		自动登录	找回密码
密码			注册

[已解决]求助，哪位老师能帮我改一下这段代码吗？

麻烦看看