vba - 如何通过VBA仅循环遍历Excel工作表中列中的非空单元格？

Question

根据this website .

我认为这应该有效:

Dim cell As Range
For Each cell In xxxSheet.Range("B:B").SpecialCells(xlCellTypeFormulas, xlNumbers)
    'Do sth.
Next

这是行不通的。有什么遗漏吗？

Answer 1

这应该是有效的解决方案:

For Each cell In xxxSheet.Range("B:B")
    If Not IsEmpty(cell) Then
        'do sth
    End If
Next

此外，如果您想循环直到最后一个填充单元格，您可以使用以下内容:

xxxSheet.Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)

代替

xxxSheet.Range("B:B")