Wie füge ich leere Zellen über / links in Excel automatisch zusammen?
In diesem Artikel werde ich über das automatische Zusammenführen leerer Zellen oben oder links sprechen (siehe Abbildung unten). Tatsächlich gibt es kein integriertes Dienstprogramm, das diese Aufgabe ausführen kann, aber die Makrocodes können dies.
| Leerzeichen oben zusammenführen | ||
 |
 |
 |
| Leerzeichen links zusammenführen | ||
 |
|
 |
Füge leere Zellen oben basierend auf einer Spalte zusammen
Leere Zellen oben zusammenführen (funktioniert nur für eine Spalte)
Leere Zellen links zusammenführen
Füge leere Zellen oben basierend auf einer Spalte zusammen
Angenommen, es gibt einen Datenbereich in drei Spalten, und jetzt möchten Sie die obigen Daten basierend auf Spalte C zusammenführen.
1. Drücken Sie Alt + F11 keys, um die zu aktivieren Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul. Siehe Screenshot:
2. Fügen Sie dann den folgenden Code in das leere Skript ein. Siehe Screenshot:
VBA: Füge das leere Feld oben basierend auf der nächsten Spalte zusammen
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3. Drücken Sie F5 Drücken Sie die Taste, um den Code auszuführen, und ein Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, einen zu verwendenden Bereich auszuwählen. Siehe Screenshot:
4 Klicken OK, dann wurden die leeren Zellen oben zusammengeführt. Siehe Screenshot:
Leere Zellen oben zusammenführen (funktioniert nur für eine Spalte)
Hier ist ein Makrocode, mit dem die leeren Zellen oben in der angegebenen Spalte zusammengeführt werden können.
1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul. Siehe Screenshot:
2. Fügen Sie den folgenden Code in das Skript ein. Siehe Screenshot:
VBA: Leere Zellen oben zusammenführen
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3. Drücken Sie F5 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie einen Spaltenbereich auswählen können. Siehe Screenshot:
4. Klicken Sie auf OK. Und die leeren Zellen in der Auswahl wurden oben zusammengeführt.
 |
|
 |
Leere Zellen links zusammenführen
Wenn Sie leere Zellen links zusammenführen möchten, kann Ihnen der folgende Code einen Gefallen tun.
1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Anwendungsfenster und klicken Sie auf Insert > Modul. Siehe Screenshot:
2. Fügen Sie dann den folgenden Code in das leere Skript ein. Siehe Screenshot:
VBA: Leerzeichen links zusammenführen
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3. Drücken Sie F5 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie einen Bereich auswählen können. Siehe Screenshot:
4 Klicken OK. Die leeren Zellen wurden links zusammengeführt.
| Leerzeichen links zusammenführen | ||
|
|
|
Führen Sie dieselben Zellen zusammen oder entfernen Sie die Zelle
|
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
