Wie man ein Blatt in Excel mit VBA dupliziert

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!