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

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

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