Wie mit Hilfe von VBA

Question

leere Zeile in Excel-Zelle entfernen ich leere Zeile in Excel-Zelle mit Hilfe von VBA entfernen möge, und es könnte die Werte in Zellen

Answer 1

Die nicht stört folgende VBA-Code sollte tun, was Sie in Excel benötigen. Stellen Sie vor dem Testen sicher, dass Sie mit einer Kopie Ihrer Tabelle arbeiten, falls etwas schief geht.

Sub RemoveEmptyRows() 

Dim Rw As Range 
With Application 

     .Calculation = xlCalculationManual 

     '.ScreenUpdating = False 

    Selection.SpecialCells(xlCellTypeBlanks).Select 
     For Each Rw In Selection.Rows 

      If WorksheetFunction.CountA(Rw.EntireRow) = 0 Then 

       Rw.EntireRow.Delete 
       count = count + 1 

      End If 

     Next Rw 

     .Calculation = xlCalculationAutomatic 

     '.ScreenUpdating = True 
End With 
End Sub 

Beachten Sie, dass, wenn Sie eine große Anzahl von Zeilen erwarten gelöscht werden, uncommenting die ‚.ScreenUpdate = False/True‘ Linien den Löschvorgang beschleunigen kann.

Algorithmus:

• Disable Formelberechnung beim Löschen. (.Calculation = xlCalculationManual)
• Wählen Sie den aktiven Bereich mit leeren Zellen im aktuellen Arbeitsblatt aus. (SpecialCells (xlCellTypeBlanks) .Wählen)
• Schleife durch jede Zeile. (Für jeden)
• Löschen Sie die gesamte Zeile, wenn keine der Zellen in der Zeile Daten enthält. (CountA-Funktion)
• Aktivieren Sie die Formelberechnung, um Werte zu aktualisieren. (.Calculation = xlCalculationAutomatic)