Jak sprawdzić, czy cały wiersz jest pusty w programie excel thorough vba

Question

Mam arkusz, w którym mam dane z dwóch różnych źródeł.Istnieją puste wiersze między nimi.Chcę zrobić ten pusty wiersz jako mój ogranicznik .Jak mogę dowiedzieć się, czy cały wiersz jest pusty, czy nie.

Answer 1

Jeśli mówisz dosłownym następnie cały wiersz kodu podobnego do tego powinien pracować (tak długo, jak nie ma formuły lub przestrzenie obecne w każdej z komórek a):

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

W przeciwnym razie, dla w zakresie od rzędu:

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 

(źródło: http://www.ozgrid.com/forum/showthread.php?t=26509&page=1)

Answer 2

WorksheetFunction.CountA(), jak pokazano poniżej:

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