根据循环中单元格值的范围复制和重命名模板工作表

Question

我有一个模板表，我已经设置了名为“Template”的模板表。

我在另一个工作表上有一个名为“Formulation”的单元格范围，我希望它能查看范围“G7：W7”并创建一个“Template”副本并相应地重命名它。

我已经修改了我找到的一段代码，但我一直遇到运行时错误13 - 类型不匹配。

下面是代码：

`Sub CopyInfoSheetandInsert() 
' 
' CopyInfoSheetandInsert Macro 
' 
Dim rcell As Range 
Dim Background As Worksheet 
Set Background = Sheets("Formulation") 

For Each rcell In Range("D7:W7") 

    If rcell.Value <> "" Then 

      Sheets("Template").Copy Before:=Sheets("COSHH") 
      Sheets("Template (2)").Name = rcell.Value 

    End If 

Next rcell 



End Sub 

任何意见将不胜感激！

UPDATE

通过移动宏按钮配方页复印功能现在工作然而，在下面的代码行我现在得到一个标超出范围的错误？

Sheets("Template(2)").Name = rcell.Value 

亲切的问候，

艾丹

Answer 1

你需要的东西，如：

Sub CopyInfoSheetandInsert() 

Dim rcell As Range 
Dim Background As Worksheet 
Set Background = Sheets("Formulation") 

For Each rcell In Range("D7:W7") 

    If rcell.Value <> "" And SheetExists(rcell.Value) = False Then 

      Sheets("Template").Copy Before:=Sheets("COSHH") 
      Sheets(Sheets("COSHH").Index - 1).Name = rcell.Value 

    End If 

Next rcell 
End Sub 

Function SheetExists(SheetName) As Boolean 
Dim sht As Worksheet 

'Assume Failure 
SheetExists = False 

For Each sht In ActiveWorkbook.Sheets 
    If sht.Name = SheetName Then 
     'Success 
     SheetExists = True 
     Exit Function 
    End If 
Next sht 

End Function