VBA在G列篩選出空白單元格,再H列篩選出空白單元個,再I列篩選出空白單元格的結果
时间: 2024-04-15 15:03:29 浏览: 20
以下是使用 VBA 在 G 列筛选出空白单元格,然后在 H 列和 I 列筛选出空白单元格的代码示例:
```vba
Sub FilterBlankCells()
Dim ws As Worksheet
Dim lastRow As Long
Dim rngG As Range, rngH As Range, rngI As Range
' 设置要操作的工作表
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将 "Sheet1" 替换为你要操作的工作表名称
' 获取 G 列的最后一行
lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
' 在 G 列中筛选出空白单元格
Set rngG = ws.Range("G1:G" & lastRow).SpecialCells(xlCellTypeBlanks)
' 在 H 列中筛选出空白单元格
If Not rngG Is Nothing Then
Set rngH = rngG.Offset(0, 1).SpecialCells(xlCellTypeBlanks)
End If
' 在 I 列中筛选出空白单元格
If Not rngH Is Nothing Then
Set rngI = rngH.Offset(0, 1).SpecialCells(xlCellTypeBlanks)
End If
' 将结果显示在新的一列
If Not rngI Is Nothing Then
rngI.Offset(0, 2).Value = "空白单元格"
End If
MsgBox "已筛选出空白单元格并将结果显示在新的一列。"
End Sub
```
请将代码中的 "Sheet1" 替换为你要操作的工作表名称。代码首先在 G 列中筛选出空白单元格,并将结果存储在 `rngG` 变量中。接着,它在 H 列中筛选出空白单元格,并将结果存储在 `rngH` 变量中。最后,它在 I 列中筛选出空白单元格,并将结果存储在 `rngI` 变量中。
如果在 I 列中筛选出了空白单元格,代码会将该信息显示在 I 列的右侧第三列(偏移量为2)。
希望对你有所帮助!如果你有任何其他问题,请随时提问。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![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)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pptx](https://img-home.csdnimg.cn/images/20210720083543.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)