excel - 在 Excel 中测试 A 范围是否完全为空

Question

我正在尝试检查指定范围内的任何单元格中是否有数据，以便我可以进入项目的下一步并打印出数据（如果有的话）。假设我有一个范围 A1:F39，我将如何检查这些单元格中是否有任何数据？目前，我一个接一个地遍历整个单元格范围，在更改到下一列之前遍历整个行，并查看单元格是否为空白。如果有更好的方法来做到这一点，我将不胜感激所有的帮助，谢谢！

Dim RowCounter As Integer
Dim ColumnTraversing As Integer
Dim PopulatedCounter As Integer 
RowCounter = 1
ColumnTraversing = 1
PopulatedCounter = 0
With ThisWorkbook.Worksheets("Test") 
   While (ColumnTraversing <= 6)'column looper

       While (RowCounter < 40) 'Row Looper
'
       If (.Cells(RowCounter, ColumnTraversing).Text <> "") Then
           i = i + 1
       End If
       RowCounter = RowCounter + 1
       Wend

   ColumnTraversing = ColumnTraversing + 1
   RowCounter = 1
    Wend
    If (i > 0) Then 
        PopulatedCounter = PopulatedCounter + 1
    End If
End With

标签： excelvba