VBA 中表示B列非空值的单元格怎么实现

在VBA中，可以使用以下代码表示B列非空值的单元格：

Sub NonEmptyCellsInBColumn()
Dim LastRow As Long
Dim NonEmptyCells As Range

LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Set NonEmptyCells = Range("B1:B" & LastRow).SpecialCells(xlCellTypeConstants)

For Each Cell In NonEmptyCells
    '处理非空单元格
Next Cell

End Sub

这个代码将在B列中查找并选择所有非空单元格，然后可以使用For Each循环逐个处理这些单元格。