以下是一个示例宏，用于检查一个单元格是否填写，并将相应的信息写入另一个工作表：

Sub CheckCellAndWriteInfo()
    Dim sourceSheet As Worksheet
    Dim destSheet As Worksheet
    Dim sourceCell As Range
    Dim destCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set destSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源单元格和目标单元格
    Set sourceCell = sourceSheet.Range("A1")
    Set destCell = destSheet.Range("A1")
    
    ' 检查源单元格是否填写
    If sourceCell.Value <> "" Then
        ' 如果填写了，将相应的信息写入目标单元格
        destCell.Value = "已填写"
    Else
        ' 如果未填写，将相应的信息写入目标单元格
        destCell.Value = "未填写"
    End If
End Sub

请注意，在上述代码中，您需要根据您实际的工作表名称和单元格位置进行相应的更改。