VBA 非空单元格行号

VBA (Visual Basic for Applications) 是Excel中的一种宏语言，它允许用户编写脚本来自动化工作簿操作。如果你想获取非空单元格所在的行号，你可以使用`WorksheetFunction.Counta()`函数配合循环来完成。这个函数返回一列中非零、非空值的数量。

下面是一个简单的示例代码片段：

Sub FindNonNullRows()
    Dim ws As Worksheet '假定你在工作表ws上查找
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你的实际工作表名称
    
    Dim rng As Range '定义一个范围
    Set rng = ws.Range("A1:Z" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    Dim nonEmptyRows() As Long '存储非空行号
    ReDim nonEmptyRows(1 To rng.Counta)
    
    Dim i As Long
    For i = 1 To rng.Counta
        If Not IsBlank(rng.Cells(i, 1)) Then '检查单元格是否为空
            nonEmptyRows(i) = i '非空则将行号添加到数组
        End If
    Next i
    
    '在这里可以处理nonEmptyRows数组，例如打印或进一步分析
End Sub

Private Function IsBlank(cell As Range) As Boolean
    IsBlank = Len(cell.Value) = 0 Or cell.Value = ""
End Function

在这个例子中，`IsBlank` 函数用于检查单元格是否为空，然后`FindNonNullRows`函数会找到并保存非空单元格的行号。如果你想要得到的是所有非空行的列表，可以直接省略数组的部分，直接在For循环中进行操作。