VBA判斷F列有内容，O列相應單元個是空，就在O列相應位置寫上“挖煤”，如果O列相應位置不是空，就跳過

您可以使用VBA中的循环和条件判断语句来现您的需求。以下是一个示例的VBA代码，可以判断F列和O列的内容并进行相应的操作：

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

请将上述代码复制到VBA编辑器中的模块中，并在您的工作表中运行该宏。它将循环遍历F列中的每一行，如果F列有内容且O列相应单元格为空，则在O列相应位置写入"挖煤"。如果O列相应位置不为空，则跳过该行。

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

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