VBA 用一个参数表示B列非空值
时间: 2024-05-05 16:18:03 浏览: 11
你好,可以使用以下代码来表示B列非空值:
```
Sub NonEmptyCellsInB()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
MsgBox LastRow
End Sub
```
这个代码通过找到B列最后一个非空单元格的行数来表示B列非空值。
相关问题
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循环逐个处理这些单元格。
用vba程序实现删除工作表B列中有空值的行
您可以使用 VBA 程序删除工作表 B 列中有空值的行,代码如下:
```
Sub DeleteRowsWithBlankInColumnB()
Dim lRow As Long
lRow = Cells(Rows.Count, "B").End(xlUp).Row
For i = lRow To 1 Step -1
If IsEmpty(Cells(i, "B")) Then
Rows(i).Delete
End If
Next i
End Sub
```
将此代码粘贴到 VBA 编辑器中,然后可以运行它来删除工作表 B 列中有空值的行。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)