Excel VBA问题：排查检查所有工作表C1单元格非空的代码错误

问题背景 #

我需要检查Excel文件中所有工作表的C1单元格是否为空，并用消息框显示C1不为空的工作表名称——因为我有一个包含大量工作表的文件，要添加链接但部分工作表格式不一致无需处理，得先完成这项检查。

我写了代码，但即使3个工作表的C1有内容，消息框还是显示“所有工作表的C1单元格均为空”。

原代码：

Sub CheckCellC1()
    Dim ws As Worksheet
    Dim nonEmptyCell As String
    nonEmptyCell = ""
    
    ' Browse all sheets in the current workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Check if cell C1 is empty
        If ws.Range("C1").Value <> "" Then
            nonEmptyCell = nonEmptyCell & ws.Name
        End If
    Next ws
    
    ' Result
    If nonEmptyCell = "" Then
        MsgBox "Cell C1 is empty in all sheets."
    Else
        MsgBox "Cell C1 isn't empty in those sheets:" & nonEmptyCell
    End If
End Sub

问题原因及修正 #

核心问题是**ThisWorkbook的使用场景错误**：因为你是从PERSONAL.xlsb中运行代码，ThisWorkbook指向的是代码所在的PERSONAL.xlsb，而非你要检查的目标工作簿。需要替换为ActiveWorkbook（指向当前激活的工作簿）。

另外，原代码拼接工作表名称时没有换行，消息框内容会挤在一起，建议添加vbLf来换行分隔，提升可读性。

修正后的代码：

Sub CheckCellC1()
    Dim ws As Worksheet
    Dim nonEmptySheets As String
    nonEmptySheets = ""
    
    ' 遍历当前激活工作簿的所有工作表
    For Each ws In ActiveWorkbook.Worksheets
        ' 检查C1单元格是否非空
        If ws.Range("C1").Value <> "" Then
            nonEmptySheets = nonEmptySheets & ws.Name & vbLf
        End If
    Next ws
    
    ' 显示结果
    If nonEmptySheets = "" Then
        MsgBox "所有工作表的C1单元格均为空。"
    Else
        MsgBox "以下工作表的C1单元格不为空：" & vbLf & nonEmptySheets
    End If
End Sub

补充说明 #

• ThisWorkbook：始终指向代码所在的工作簿，适合代码和目标数据在同一文件的场景。
• ActiveWorkbook：指向当前用户正在操作的激活工作簿，适合从个人宏工作簿（PERSONAL.xlsb）跨文件运行代码的场景。

内容的提问来源于stack exchange，提问作者Cz_Libu