In diesem Tutorial werden wir uns die verschiedenen Möglichkeiten ansehen, wie Sie Zellen mit VBA zusammenführen können.
Zellen mit VBA verbinden
Sie können Zellen in VBA mit der Range.Merge-Methode zusammenführen. Der folgende Code führt die Zellen A1:C1 zusammen:
12345 | Unter zusammenführen vonZellen()Bereich("A1:C1").ZusammenführenEnd Sub |
Das Ergebnis ist:
Trennen Sie Zellen mit VBA
Sie können die Zusammenführung eines zusammengeführten Zellbereichs mithilfe der Range.UnMerge-Methode aufheben. Angenommen, Sie haben den Zellbereich A1:D1 zusammengeführt. Sie können einen der Zellbezüge im Bereich verwenden, um die Zellen zusammenzuführen. Der folgende Code zeigt Ihnen, wie Sie die Zellen A1:D1 aufheben, in diesem Fall verwenden wir Zelle B1:
12345 | Untergeordnete Zellen aufheben ()Range("B1").UnMergeEnd Sub |
Weitere Zusammenführungsbeispiele
Zeilen mit VBA zusammenführen
Sie können Zeilen mit VBA zusammenführen, indem Sie die Zeilennummern angeben, die Sie zusammenführen möchten. Wir haben den Text in Zelle A1 unten gezeigt:
Der folgende Code führt die Zeilen 1-4 zusammen:
12345 | Unter MergeRows()Bereich("1:4").ZusammenführenEnd Sub |
Das Ergebnis ist:
Spalten mit VBA zusammenführen
Sie können Spalten mit VBA und den Spaltenbuchstaben zusammenführen. Der folgende Code führt die Spalten A:C zusammen.
12345 | Sub MergeColumns()Range("A:C").MergeEnd Sub |
Das Ergebnis ist:
Zelleninhalte horizontal zusammenführen und zentrieren
Sie können Zellinhalte horizontal über einen Zellbereich hinweg zusammenführen und zentrieren. Sie müssen die interessierenden Zellen zusammenführen und auch die horizontale Ausrichtungseigenschaft des Bereichsobjekts auf zentrieren setzen. Wir haben den Text in Zelle A1 wie unten gezeigt:
Der folgende Code führt den Zellbereich A1:D1 zusammen und zentriert den Inhalt von Zelle A1 horizontal über diesen Zellbereich:
123456 | Sub MergeandCenterContentsHorizontally()Bereich("A1:D1").ZusammenführenRange("A1:D1").HorizontalAlignment = xlCenterEnd Sub |
Das Ergebnis ist:
Zellinhalte vertikal zusammenführen und zentrieren
Sie können Zellinhalte vertikal über einen Zellbereich hinweg zusammenführen und zentrieren. Sie müssen die interessierenden Zellen zusammenführen und auch die vertikale Ausrichtung des Bereichsobjekts auf zentrieren setzen. Wir haben den Text in Zelle A1 wie unten gezeigt:
Der folgende Code führt den Zellbereich A1:A4 zusammen und zentriert den Inhalt von Zelle A1 vertikal über diesen Zellbereich:
123456 | Sub MergeandCenterContentsVertically()Bereich("A1:A4").ZusammenführenRange("A1:D1").VerticalAlignment = xlCenterEnd Sub |
Das Ergebnis ist:
Zellen über einen Zellbereich hinweg zusammenführen
Sie können Zellen über einen Zellbereich hinweg zusammenführen. Sie müssen den optionalen Across-Parameter der Merge-Methode auf True setzen. Wir haben den Text in Zelle A1 wie unten gezeigt:
Der folgende Code führt den Zellbereich A1:D1 zusammen:
12345 | Unter MergeCellsAcross()Range("A1:D1").Merge Across:=TrueEnd Sub |
Das Ergebnis ist: