如何找出excel中整行是否空白徹底vba

Question

我有一張表格，其中有來自兩個不同來源的數據。我在它們之間有一個空行。我想將此空行作爲我的分隔符。我怎樣才能知道整行是否空白。

Answer 1

如果你談論然後字面整個行類似的代碼這應該工作（只要沒有公式或空間存在於任何細胞以及）：

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

否則，的範圍內從行：

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 

（來源：http://www.ozgrid.com/forum/showthread.php?t=26509&page=1）

Answer 2

WorksheetFunction.CountA()，如下面所示：

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