在循环的情况下，在VBA中的函数中replace工作表名称

我正在创build几个工作表基于一些工作表格式只是简单地复制其所有的内容与公式。 只有我给这张纸上一个新的名字。

我希望每次创build一个表单并给它一个名字， 格式！ 所有单元格中的单词必须replace为活动工作表名称。

我试图写一些代码，但似乎不工作。

Sub createsheet() LastRow = Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Row Dim ws As Worksheet For i = 9 To LastRow Set ws = ThisWorkbook.Sheets.Add(after:= _ ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ws.Name = Left(Sheets("SUMMARY").Cells(i, 1), 31) wsrepl = Worksheets(Worksheets.Count).Name Sheets("format").Select Cells.Select Application.CutCopyMode = False Selection.Copy Worksheets(Worksheets.Count).Activate ActiveSheet.Paste ActiveSheet.Cells(2, 2) = Sheets("SUMMARY").Cells(i, 1) ActiveSheet.Cells(5, 2) = Sheets("SUMMARY").Cells(i, 1) Worksheets(Worksheets.Count).Activate Cells.Replace What:="format!", Replacement:= _ wsrepl, LookAt:=xlPart, SearchOrder:=xlByRows _ , MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next i End Sub 

任何帮助将不胜感激。

Answer 1

  Cells.Replace What:="format!", Replacement:= _ "'" & wsrepl & "'" & "!", LookAt:=xlPart, SearchOrder:=xlByRows _ , MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

我find了答案。