根據循環中單元格值的範圍複製和重命名模板工作表

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