Excel VBA遍历D列验证：解决运行时错误1004及逻辑问题

我来帮你搞定这个VBA代码的问题，你的代码有两个核心问题导致了运行时错误和逻辑失效，咱们一步步修正：

你的代码出问题的原因 #

1. 条件判断在循环外部：你把If语句写在了For...Next循环的外面，当循环结束后，i的值已经变成了Rows.Count + 1，这时候访问Cells(i, 4)就会超出Excel的有效行范围，直接触发1004错误。
2. 未逐行执行检查：循环内部没有任何逻辑，等于白跑了一遍循环，自然无法正确检查每一行的D列和G列关系。

修正后的代码（基础版） #

这个版本会逐行检查，找到符合条件的行就弹出提示：

Public Sub Validate()
    Dim i As Long
    Dim lastRow As Long
    
    ' 获取D列最后一行有数据的行号，避免遍历几万行空行浪费效率
    lastRow = Cells(Rows.Count, 4).End(xlUp).Row
    
    ' 从第4行开始遍历到D列最后一行
    For i = 4 To lastRow
        ' 用UCase统一大小写，避免因大小写不一致漏判；Trim处理单元格含空格的情况
        If UCase(Cells(i, 4).Value) = "INCOMPLETE" And Trim(Cells(i, 7).Value) = "" Then
            MsgBox "Please add a comment in G" & i, vbExclamation, "Missing Comment"
            ' 如果找到第一个问题就想停止检查，取消下面这行的注释
            ' Exit Sub
        End If
    Next i
End Sub

更友好的汇总提示版本 #

如果不想每次找到一个问题就弹一次框，可以把所有需要添加评论的行汇总起来，最后一次性提示：

Public Sub ValidateWithSummary()
    Dim i As Long
    Dim lastRow As Long
    Dim missingRows As String
    
    ' 获取D列最后一行有数据的行号
    lastRow = Cells(Rows.Count, 4).End(xlUp).Row
    missingRows = ""
    
    For i = 4 To lastRow
        ' 同样处理大小写和空格问题
        If UCase(Cells(i, 4).Value) = "INCOMPLETE" And Trim(Cells(i, 7).Value) = "" Then
            ' 拼接需要提示的单元格地址
            If missingRows = "" Then
                missingRows = "G" & i
            Else
                missingRows = missingRows & ", G" & i
            End If
        End If
    Next i
    
    ' 根据结果弹出对应消息
    If missingRows <> "" Then
        MsgBox "Please add comments in the following cells:" & vbCrLf & missingRows, vbExclamation, "Missing Comments"
    Else
        MsgBox "All incomplete tasks have comments!", vbInformation, "Validation Passed"
    End If
End Sub

关键改进点说明 #

• 避免遍历空行：用Cells(Rows.Count, 4).End(xlUp).Row获取D列最后一个有数据的行，比遍历到Rows.Count效率高太多，尤其是当表格数据不多的时候，不会白跑几万行空行。
• 兼容大小写：UCase把D列的内容转成大写后再对比，不管单元格里是"Incomplete"、"incomplete"还是"InComplete"都能正确识别。
• 处理空格情况：Trim会去掉单元格内容前后的空格，避免单元格里只有空格但看起来是空的情况被误判为非空。

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