Tüm satırın boşta olup olmadığı nasıl belirlenir excel vba

Question

İki farklı kaynaktan veri aldığım bir sayfam var. Aralarında boş bir satır var. Bu boş satırımı benim ayırıcı olarak yapmak istiyorum .Sizin tümünün boş olup olmadığını nasıl öğrenebilirim.

Answer 1

bu çalışması gerekir için (aynı zamanda hücrelerin herhangi birinde mevcut hiçbir formüller veya boşluk vardır sürece) bir hazır tüm satırı sonra benzer kod konuşuyorsak:

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

Aksi için, Arka arkaya gelen bir aralığı:

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 

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

Answer 2

WorksheetFunction.CountA(), aşağıda gösterildiği gibidir:

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