编写一个宏，检查单元格是否已填充，然后将相应的信息写入另一个工作表

Sub CheckAndWrite()
    Dim srcSheet As Worksheet
    Dim destSheet As Worksheet
    Dim srcRange As Range
    Dim destCell As Range
    Dim i As Integer
    
    ' 设置源工作表和目标工作表
    Set srcSheet = ThisWorkbook.Worksheets("源工作表")
    Set destSheet = ThisWorkbook.Worksheets("目标工作表")
    
    ' 设置源单元格范围和目标单元格
    Set srcRange = srcSheet.Range("A1:A10")
    Set destCell = destSheet.Range("B1")
    
    ' 遍历源单元格范围
    For i = 1 To srcRange.Rows.Count
        ' 检查单元格是否已填充
        If Not IsEmpty(srcRange.Cells(i)) Then
            ' 将相应的信息写入目标工作表
            destCell.Value = "已填充"
        Else
            destCell.Value = "未填充"
        End If
        
        ' 移动目标单元格到下一行
        Set destCell = destCell.Offset(1, 0)
    Next i
End Sub