循环中If条件未满足时弹出MsgBox的VBA代码问题排查

你的代码逻辑存在偏差：原代码会在遍历到第一个非空单元格时就触发Else分支弹出提示并退出循环，但你实际需要的是遍历完A1:Z1所有单元格都没找到空单元格时才弹出提示。

修正后的代码 #

Sub Column_Names2()
    Dim c As Range
    Dim foundEmpty As Boolean ' 标记是否找到空单元格
    
    foundEmpty = False ' 初始化为未找到状态
    
    For Each c In Range("A1:Z1").Cells
        If c.Value = "" Then
            c.Value = "Accounting Number"
            c.Offset(0, 1).Value = "Receipt/Invoice"
            c.Offset(0, 2).Value = "Proccesed"
            foundEmpty = True ' 找到空单元格后标记状态
            Exit For ' 填充完成后退出循环，无需继续遍历
        End If
    Next c
    
    ' 循环结束后统一判断：全程没找到空单元格才弹出提示
    If Not foundEmpty Then
        MsgBox "Could not find empty cell"
    End If
End Sub

关键修改说明 #

• 新增foundEmpty布尔变量，用来记录遍历过程中是否找到空单元格
• 删除原Else分支，改为循环结束后统一判断状态，避免中途误触发提示
• 找到空单元格填充内容后，立即标记状态并退出循环，符合你“找到第一个空单元格就填充”的需求
• 明确声明c As Range，避免变体类型带来的潜在问题

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