复制并粘贴到使用相同VBA代码创建的新工作表中

Question

我在这里或互联网上的任何地方都找不到这个问题的答案！ 所以请帮助我：

目的

1）我将不创建一个我命名的新工作表，2）之后，我将不将特定的单元格复制到此新创建的工作表中。

背景

我看过成千上万的视频，解释了创建新工作表并以我在特定单元格中编写的内容命名的代码，到目前为止一切顺利。 我也看到过成千上万个将值复制到现有工作表中的地方，很好。 但是我找不到任何人描述如何在特定的单元格中创建一个名为Idefine的新工作表，然后将值复制到其中。 当我在特定单元格中更改名称时，我想复制到新工作表中。

这是我为第一部分（工作正常）和第二部分（工作不太正常）编写的代码：

        sheet_name_to_create = Blad1.Range("e33").Value

        For rep = 1 To (Worksheets.Count)
            If LCase(Sheets(rep).Name) = LCase(sheet_name_to_create) Then
            MsgBox "This sheet already exists!)"
            Exit Sub
            End If

        Next

        ' börja kopieringen


            Sheets.Add After:=ActiveSheet
            Sheets(ActiveSheet.Name).Name = sheet_name_to_create

    'Second part trying to copy and paste
    'Now I want to copy values in "Blad1" to the newly made sheet ("sheet_name_to_create"). I know these codes are wrong, but it's what I got:

     Range("A1:AM73").Select
        Selection.Copy
        Sheets.Add After:=ActiveSheet
        ActiveSheet.Paste
        ActiveWindow.Zoom = 25

' Or

    WorksWorksheets("Blad1").Range ("A1:AF80").Copy Worksheets("sheet_name_to_create").Range ("A1:AF80")

请帮忙

Answer 1

创建新工作表时，请参考它-如下所示：

Set sourceSheet = ActiveSheet
Set destSheet = Sheets.Add(After:=sourceSheet)

现在，您可以使用sourceSheet和destSheet引用源工作表或目标。

然后，您可以将名称应用于destSheet ：

destSheet.Name = sheet_name_to_create

然后您可以从源代码复制/粘贴到目标表：

sourceSheet.Range("A1:AM73").Copy destSheet

---

因此，您的代码变为：

sheet_name_to_create = Blad1.Range("e33").Value

For rep = 1 To (Worksheets.Count)
    If LCase(Sheets(rep).Name) = LCase(sheet_name_to_create) Then
        MsgBox "This sheet already exists!)"
        Exit Sub
    End If
Next
Set sourceSheet = ActiveSheet
Set destSheet = Sheets.Add(After:=sourceSheet)

destSheet.Name = sheet_name_to_create
sourceSheet.Range("A1:AM73").Copy destSheet
ActiveWindow.Zoom = 25