excel - 我正在尝试复制和重命名工作表，但出现下标超出范围错误

Question

我正在尝试将 Sheet2 复制到 Sheet3 并将其重命名为 Result 但我不断收到下标超出范围错误(发生这种情况是因为该工作表不存在，这可能意味着复制没有发生)。

我尝试使用复制，如下面的代码所示，但下标超出范围错误不断出现。非常感谢任何解决此问题的帮助。谢谢!

    Set shtSheet1 = Worksheets("Sheet1")
    Set shtSheet2 = Worksheets("Sheet2")

    'trying to copy Sheet2 and create a Sheet3 tab
    shtSheet2.Copy After:=Sheets("Sheet3")
    Set shtSheet3 = Sheets(Sheets("Sheet3").Index + 1)
    shtSheet3.Name = "Result"

Answer 1

复印表

在 Sheet2 之后

Sub NewSheetAfterSheet2()

  Dim shtSheet2 As Worksheet
  Dim shtSheet3 As Worksheet
  Set shtSheet2 = Sheets("Sheet2")

  shtSheet2.Copy After:=shtSheet2
  Set shtSheet3 = Sheets(shtSheet2.Index + 1)
  shtSheet3.Name = "Result"

End Sub

最后位置

Sub NewSheetLastPosition()

  Dim shtSheet2 As Worksheet
  Dim shtSheet3 As Worksheet
  Set shtSheet2 = Sheets("Sheet2")

  shtSheet2.Copy After:=Sheets(Sheets.Count)
  Set shtSheet3 = Sheets(Sheets.Count)
  shtSheet3.Name = "Result"

End Sub