Wie finden Sie heraus, wenn eine ganze Zeile leer ist in excel Gründliche vba

Ich habe ein sheet in dem ich Daten aus zwei verschiedenen Quellen.Ich habe eine leere Zeile zwischen Ihnen.Ich will diese leere Zeile als mein Trennzeichen.Wie kann ich herausfinden, ob die gesamte Zeile leer ist oder nicht.

InformationsquelleAutor gizgok | 2010-09-02

  1. 19

    Wenn Sie im Gespräch eine wörtliche gesamte Zeile dann ähnlichen code wie das funktionieren sollte (so lange es keine Formeln oder Leerzeichen vorhanden in allen Zellen):

    If Application.CountA(ActiveCell.EntireRow)=0 Then
     MsgBox "Row Empty"
     Exit Sub
End If

    Sonst, für einen Bereich einer Zeile:

    Dim neValues As Range, neFormulas As Range, MyRange As Range

Set MyRange = Columns("C:AA")

On Error Resume Next
Set neValues = Intersect(ActiveCell.EntireRow.SpecialCells(xlConstants), MyRange)
Set neFormulas = Intersect(ActiveCell.EntireRow.SpecialCells(xlFormulas), MyRange)
On Error GoTo 0

If neValues Is Nothing And neFormulas Is Nothing Then
    MsgBox "Nothing There"
Else
    MsgBox "Something's There"
End If

    (Quelle: http://www.ozgrid.com/forum/showthread.php?t=26509&page=1)

    InformationsquelleAutor GotDibbs

  2. 11

    WorksheetFunction.CountA(), wie unten gezeigt: 

    Dim row As Range
Dim sheet As Worksheet
Set sheet = ActiveSheet

For i = 1 To sheet.UsedRange.Rows.Count

    Set row = sheet.Rows(i)
    If WorksheetFunction.CountA(row) = 0 Then
        MsgBox "row " & i & " is empty"
    End If

Next i

    InformationsquelleAutor Jay

  3. -1

    Ich habe dies ausprobiert und es funktioniert. 

    Option Explicit

Sub Dl_BlankRow()
Application.ScreenUpdating = False
Dim SelectRange As Range
Dim TempRange As Range
Dim i As long
Set SelectRange = Application.Selection
Set TempRange = Intersect(SelectRange, ActiveSheet.UsedRange)
For i = TempRange.Rows.Count + TempRange.Row - 1 To 1 Step -1
If Cells(i, 1).End(xlToRight).Column = 16384 And Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
    Diese brechen im Kompatibilitätsmodus, da in diesem Fall Cells(i, 1).End(xlToRight).Column = 256 für eine leere Zeile. Auch diese löscht Zeilen, das ist nicht das, was der OP gefragt!

    InformationsquelleAutor Mostafa Orooji

Schreibe einen Kommentar