Dieses Tutorial bietet eine Reihe von Excel -Makros für eine effiziente Blattdoppelung: Kopieren und Umbenennen auf der Grundlage von Zellwerten, das gleichzeitige Kopieren mehrerer Bl?tter, übertragung aktiver Arbeitsbl?tter in andere Dateien, ohne sie zu ?ffnen, und vieles mehr. Manuelles Kopieren von Bl?ttern ist für ein paar Bl?tter einfach genug, wird aber mühsam, wenn es sich wiederholt mit zahlreichen Bl?ttern befasst. Diese Makros automatisieren den Prozess.

• Kopieren Sie das Blatt in eine neue Arbeitsmappe
• Mehrere Bl?tter duplizieren
• Kopieren Sie das Blatt in eine andere Excel -Datei
• Kopieren und benennen Sie ein Blatt um und benennen Sie sie um
• Kopieren und benennen Sie ein Blatt basierend auf dem Zellwert um
• Kopieren Sie ein Arbeitsblatt in eine geschlossene Arbeitsmappe
• Kopieren Sie ein Blatt aus einer anderen Arbeitsmappe, ohne es zu ?ffnen
• Ein Blatt mehrmals duplizieren
• Kopieren von Bl?ttern in Excel mit VBA

Excel VBA -Makro: Kopieren eines Blattes in eine neue Arbeitsmappe

Dieses pr?gnante Makro kopiert das aktive Blatt in eine neue Arbeitsmappe.

 Public sub copySheettoneWworkbook ()
    Activesheet.Copy
Ende sub

Excel VBA Makro: Kopieren mehrerer Bl?tter

W?hlen Sie die gewünschten Arbeitsbl?tter aus und führen Sie dieses Makro aus, um sie in eine neue Arbeitsmappe zu kopieren.

 ?ffentliche SubcopySelectedsheets ()
    ActiveWindow.Selectedsheets.copy
Ende sub

Excel VBA -Makro: Kopieren eines Blattes in eine andere Arbeitsmappe

Diese Makros kopieren das aktive Blatt in eine andere Arbeitsmappe und bieten Optionen für die Platzierung:

Kopieren zum Beginn eines anderen Arbeitsbuchs: Dieses Makro fügt das kopierte Blatt vor dem ersten Blatt im Zielarbeitsbuch ein ("book.xlsx" - Ersetzen Sie durch Ihren Dateipfad).

 Public sub CopySheettoBeginNingAnotherworkbook ()
    ActiveSheet.copy vor: = Arbeitsmappen ("book1.xlsx"). Bl?tter (1)
Ende sub

Kopieren am Ende eines anderen Arbeitsbuchs: Dieses Makro findet das kopierte Blatt bis zum Ende des Zielarbeitsbuchs an ("book1.xlsx" - Ersetzen Sie durch Ihren Dateipfad).

 ?ffentliches SubcopySheettoendanotherworkbook ()
    ActiveSheet.copy After: = Arbeitsbücher ("book1.xlsx").
Ende sub

Hinweis: Das Zielarbeitsbuch muss vorhanden sein.

Kopieren in ein ausgew?hltes Arbeitsbuch: Dadurch wird eine Benutzerform (userform1) mit einem Listbox (ListBox1) verwendet, um die Zielarbeitsbuch aus ge?ffneten Arbeitsmappen auszuw?hlen. Zwei Tasten steuern und schlie?en.

Der userformcode:

 ?ffentlich ausgew?hltes Workbook als Zeichenfolge

Private sub userForm_initialize ()
    Selectedworkbook = ""
    ListBox1.clear
    Für jede WBK in Application.Workbooks
        ListBox1.Additem (WBK.NAME)
    N?chste
Ende sub

Private sub commandbutton1_click ()
    Wenn ListBox1.Listindex> -1 dann dann
        SelectedWorkbook = ListBox1.List (ListBox1.Listindex)
    Ende wenn
    Me.hide
Ende sub

Private sub commandbutton2_click ()
    Selectedworkbook = ""
    Me.hide
Ende sub

Makros, die mit der Benutzerform verwendet werden sollen:

Kopieren Sie zum Beginn der ausgew?hlten Arbeitsmappe:

 Public sub CopySheettoBeginNingSelected Workbook ()
    Laden Sie userform1
    Userform1.show
    If (userForm1.Selected Workbook  "") dann
        ActiveSheet.copy vor: = Arbeitsmappen (userform1.Selected Workbook) .Sheets (1)
    Ende wenn
    UserForm1 entladen1
Ende sub

Kopieren Sie bis zum Ende der ausgew?hlten Arbeitsmappe:

 ?ffentliches sub copySheettoendSelectedworkbook ()
    Laden Sie userform1
    Userform1.show
    If (userForm1.Selected Workbook  "") dann
        ActiveSheet.Copy After: = Arbeitsmappen (userForm1.Selected Workbook).
    Ende wenn
    UserForm1 entladen1
Ende sub

Das Makro zeigt eine Liste der offenen Arbeitsmappen zur Auswahl an.

Excel -Makro: Kopieren und Umbenennen eines Blattes

Diese Makros automatisieren das Umbenennen des Blattes nach dem Kopieren:

Dieses Makro kopiert das aktive Blatt, nennt es "Testblatt" (anpassbar) und platziert es am Ende.

 ?ffentliche SubcopySheetandRenameprededefined ()
    ActiveSheet.copy nach: = Arbeitsbl?tter (Bl?tter.Count)
    Bei der n?chsten Fehleraufnahme als n?chstes
    ActiveSheet.Name = "Testblatt"
Ende sub

Dieses Makro fordert den Benutzer für einen benutzerdefinierten Blattnamen auf.

 ?ffentlicher SubcopySheetAndRename ()
    Dimer Newname als Zeichenfolge
    Bei der n?chsten Fehleraufnahme als n?chstes
    newname = inputBox ("Geben Sie den Namen für das kopierte Arbeitsblatt ein")
    Wenn Neuname  "" dann
        ActiveSheet.copy nach: = Arbeitsbl?tter (Bl?tter.Count)
        Bei der n?chsten Fehleraufnahme als n?chstes
        ActiveSheet.Name = NewName
    Ende wenn
Ende sub

Das Makro zeigt ein Eingabefeld für den Namenseintrag an.

Excel -Makro: Kopieren und Umbenennen auf der Grundlage des Zellwerts

Diese Makros benennen das kopierte Blatt mit dem Wert einer Zelle um:

Dieses Makro verwendet den aktuell ausgew?hlten Zellwert für den neuen Blattnamen.

 ?ffentliche SubcopySheetAndrenamBycell ()
    Dimer Newname als Zeichenfolge
    Bei der n?chsten Fehleraufnahme als n?chstes
    newname = inputBox ("den Namen für das kopierte Arbeitsblatt eingeben", "Arbeitsblatt kopieren", activecell.value)
    Wenn Neuname  "" dann
        ActiveSheet.copy nach: = Arbeitsbl?tter (Bl?tter.Count)
        Bei der n?chsten Fehleraufnahme als n?chstes
        ActiveSheet.Name = NewName
    Ende wenn
Ende sub

Dieses Makro verwendet den Wert von Cell A1 (ver?nderlich) für den neuen Blattnamen.

 ?ffentlicher SubcopySheetAndrenamBycell2 ()
    Dim Wks als Arbeitsblatt
    Setzen Sie wks = activeSheet
    ActiveSheet.copy nach: = Arbeitsbl?tter (Bl?tter.Count)
    Wenn wks.range ("a1"). Wert  "" dann
        Bei der n?chsten Fehleraufnahme als n?chstes
        ActiveSheet.Name = wks.range ("a1"). Wert
    Ende wenn
    wks.Aktivate
Ende sub 

Excel -Makro: Kopieren in einer geschlossenen Arbeitsmappe

Dieses Makro kopiert das aktive Blatt in eine geschlossene Arbeitsmappe, die über einen Dateidialog ausgew?hlt wurde.

 Public sub copySheettoclosedworkbook ()
    Dimer Filname
    Dim Closed Book als Arbeitsmappe
    Dim CurrentSheet als Arbeitsblatt dimmen
    Dateiname = application.getOpenFileName ("Excel -Dateien ( *.xlsx), *.xlsx")
    Wenn Dateiname  false dann
        Application.screenupdating = false
        Setzen Sie CurrentSheet = Application.ActiveSheet
        SET CLEEDBOOK = WORKBOOKS.OPEN (Dateiname)
        currentsheet.copy nach: = closedbook.sheets (closedbook.worksheets.count)
        Closedbook.close (true)
        Application.screenupdating = true
    Ende wenn
Ende sub

Excel VBA -Makro: Kopieren von einer geschlossenen Arbeitsmappe

Dieses Makro kopiert ein Blatt aus einer angegebenen geschlossenen Arbeitsmappe (Name des Update -Pfades und des Blattnamens).

 ?ffentliche UnterkopiefraufromcLosedworkbook ()
    Dim Quellbuch als Arbeitsmappe
    Application.screenupdating = false
    Setzen Sie SourceBook = Workbooks.open ("C: \\ Benutzer \\ xxx \\ Dokumente \\ target_book.xlsx") 'Pfad aktualisieren
    SourceBook.Sheets ("Sheet1"). Kopieren Sie nach: = thisworkbook.sheets (thisworkbook.sheets.count) 'Update -Blattname
    SourceBook.close
    Application.screenupdating = true
Ende sub

Excel VBA -Makro: Mehrmals ein Blatt duplizieren

Dieses Makro erstellt mehrere Kopien des aktiven Blattes.

 ?ffentliches Sub -DuplikateSheetMultipletimes ()
    Dim N als Ganzzahl
    Bei der n?chsten Fehleraufnahme als n?chstes
    n = InputBox ("Wie viele Kopien des aktiven Blattes m?chten Sie machen?")
    Wenn n> = 1 dann
        Für numtimes = 1 bis n
            ActiveSheet.copy nach: = activeworkbook.sheets (Worksheets.Count)
        N?chste
    Ende wenn
Ende sub

Das Makro zeigt ein Eingangsfeld für die Anzahl der Kopien an.

Hinzufügen von Makros zu Ihrer Arbeitsmappe:

1. ?ffnen Sie die Excel -Arbeitsmappe.
2. Drücken Sie Alt F11, um den VBA -Editor zu ?ffnen.
3. Klicken Sie mit der rechten Maustaste auf "ThisWorkbook", w?hlen Sie "einfügen"> "Modul".
4. Fügen Sie den Makrocode in das Modul ein.
5. Drücken Sie F5, um zu laufen.

Ausführen von Makros aus einem Beispiel -Arbeitsbuch: (Laden Sie ein Beispiel -Arbeitsbuch mit diesen Makros herunter). ?ffnen Sie das Beispiel -Arbeitsbuch und drücken Sie in Ihrer eigenen Arbeitsmappe Alt F8, w?hlen Sie das Makro aus und klicken Sie auf "Ausführen".

Das obige ist der detaillierte Inhalt vonWie man ein Blatt in Excel mit VBA dupliziert. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!