VBA判斷E列内容是“是”并且o列為空，就在o列相應單元格中寫上“111”，o列不爲空就跳過該單元格，執行判斷下一個單元格，如果E列内容是“否”，并且O列為空，就寫上“222”，o列不爲空就跳過該單元格，執行判斷下一個單元格

您可以使用VBA中的循环和条件判断语句来实现您的需求。以下是一个示例的VBA代码，可以根据E列的内容和O列是否为空，在O列相应的单元格中写入相应的值：

Sub CheckAndWrite()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, "E").End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        If Range("E" & i).Value = "是" And IsEmpty(Range("O" & i).Value) Then
            ' 判断E列内容为"是"且O列相应单元格为空，则在O列相应位置写入"111"
            Range("O" & i).Value = "111"
        ElseIf Range("E" & i).Value = "否" And IsEmpty(Range("O" & i).Value) Then
            ' 判断E列内容为"否"且O列相应单元格为空，则在O列相应位置写入"222"
            Range("O" & i).Value = "222"
        End If
    Next i
End Sub

请将上述代码复制到VBA编辑器中的模块中，并在您的工作表中运行该宏。它将循环遍历E列中的每一行，根据条件判断在O列相应位置写入相应的值。

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

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