使用两个单独的变量重命名工作表

Question

VBA 初学者用户请点击这里。我在制造业工作，我希望加快我必须提交的报告的速度。我正在解决的问题是将现有工作表复制到工作簿的末尾，然后根据以前的工作表重命名工作表。

例如，第一张纸可以命名为 R113 D2，我想复制它并将其重命名为 R113 D9，然后在复制 R113 D9 时，我希望将其重命名为 R114 D2。

如有任何建议，我们将不胜感激。

Sub CopySheetRename()

    Sheets.Copy After:=Sheets(Sheets.Count)
    On Error Resume Next
    ActiveSheet.Name = 'This is where I'm stuck and don't know what to do
    On Error GoTo 0

End Sub

Answer 1

Sub CopySheetRename()
    ' Sheets(1) is the first sheet
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = [R113] & [D2]
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = [R113] & [D9]
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = [R114] & [D2]
End Sub