检测并返回非空行

Question

的指标，我想编写VBA代码，以检查是否在Excel中的一个范围是空的，如果没有，什么是它的非空行。 这个问题的答案10811121如何检查是否Range("A1:L1000")为空：

WorksheetFunction.CountA(Range("A1:L1000")) 

如果范围不是空的，我想确定非空行的索引。在行中有多少个单元格不是空的并不重要。 一个解决方案是逐个检查范围中的每一行是否为空，但我想知道是否有没有循环的更简单的解决方案。

Answer 1

使用Range.SpecialCells method快速找到所有非公式，填充值的范围。

set rng = Range("A1:L1000").SpecialCells(xlCellTypeConstant) 

Answer 2

我会循环。代码很简单：

Sub dural() 
    Dim i As Long, msg As String 

    For i = 1 To 1000 
     If Application.WorksheetFunction.CountA(Range("A" & i & ":L" & i)) > 0 Then 
     msg = msg & "," & i 
     End If 
    Next i 

    MsgBox msg 
End Sub 

Answer 3

如果你真的有循环问题：

Dim vResult 

Dim sFormula    As String 

With Range("A1:L1000") 
    sFormula = "IF(SUBTOTAL(3,OFFSET(" & .Address & ",ROW(" & .Address & ")-MIN(ROW(" & .Address & _ 
       ")),0,1))>0,ROW(" & .Address & "),""|"")" 
End With 
Debug.Print sFormula 

vResult = Filter(Application.Transpose(Evaluate(sFormula)), "|", False)