VBA在O列篩選出是空白單元格的内容

要在VBA中筛选出O列为空白单元格的内容，您可以使用AutoFilter功能来实现。

以下是一个示例的VBA代码，演示如何筛选出O列为空白单元格的内容：

Sub FilterEmptyCells()
    ' 定义变量
    Dim lastRow As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, "O").End(xlUp).Row
    
    ' 开启AutoFilter
    Range("O1:O" & lastRow).AutoFilter Field:=1, Criteria1:=""
    
    ' 复制筛选结果到新的区域
    Range("A1:O" & lastRow).SpecialCells(xlCellTypeVisible).Copy Range("Q1")
    
    ' 关闭AutoFilter
    ActiveSheet.AutoFilterMode = False
End Sub

请将上述代码复制到VBA编辑器中的模块中，并在您的工作表中运行该宏。它将对O列进行筛选，找出空白单元格的内容，并将筛选结果复制到新的区域（这里是从列A到列O，行数与筛选结果相同），结果将放置在列Q。

请注意，上述代码假设您要处理的工作表是活动工作表。如果要处理其他工作表，请在代码中指定工作表名称或索引。

另外，请确保您在运行宏之前备份您的工作表，以免意外情况导致数据丢失。

相关问题

VBA在O列篩選出是空白單元格的内容，然後在O列空白單元個中寫上“111”，不是空白就跳過這個單元格

要在VBA中筛选出O列为空白单元格的内容，并在空白单元格中写入"111"，您可以使用AutoFilter功能和循环来实现。

以下是一个示例的VBA代码，演示如何筛选出O列为空白单元格的内容并写入"111"：

Sub FilterAndWrite()
    ' 定义变量
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, "O").End(xlUp).Row
    
    ' 开启AutoFilter
    Range("O1:O" & lastRow).AutoFilter Field:=1, Criteria1:=""
    
    ' 循环遍历每一行
    For i = 2 To lastRow ' 从第2行开始，假设第1行为标题行
        If IsEmpty(Range("O" & i).Value) Then
            Range("O" & i).Value = "111"
        End If
    Next i
    
    ' 关闭AutoFilter
    ActiveSheet.AutoFilterMode = False
End Sub

请将上述代码复制到VBA编辑器中的模块中，并在您的工作表中运行该宏。它将对O列进行筛选，找出空白单元格的内容，并在空白单元格中写入"111"。

请注意，上述代码假设您要处理的工作表是活动工作表。如果要处理其他工作表，请在代码中指定工作表名称或索引。

另外，请确保您在运行宏之前备份您的工作表，以免意外情况导致数据丢失。

VBA在G列篩選出空白單元格，再H列篩選出空白單元個，再I列篩選出空白單元格的結果

以下是使用 VBA 在 G 列筛选出空白单元格，然后在 H 列和 I 列筛选出空白单元格的代码示例：

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）。

希望对你有所帮助！如果你有任何其他问题，请随时提问。