excel - 循环不更新 range.row 或 range.column

Question

我试图为我的电子表格做一个简单的循环，它循环遍历一个范围并检查该行是否为空，如果不是，则循环遍历一系列列并检查它们是否为空，如果是则它设置一个消息。

问题是每次它通过循环 ro.value 和 col.value 正确更新但列号和行号没有所以我设置的消息总是相同的，无论哪一行或哪列有空白单元格。

这是我的代码:

Dim RoRange As range
Dim Ro As range
Dim Col As range
Dim ColRange As range
Set RoRange = Worksheets("Home").range("LineDescs")
Set ColRange = Worksheets("Home").range("F24:N24")

For Each Ro In RoRange.Rows
    If Ro.Value <> "" Then
        For Each Col In ColRange.Columns
            If Col.Value = "" Then
                Set_Message ("Cell " & ColRange.Column & ":" & RoRange.Row & " is Empty!")
                Exit Sub
            End If
        Next

    End If

Next

“LineDescs”是我的电子表格中的一个命名范围。
请询问您是否需要任何解释谢谢!

Answer 1

您的留言应引用 Ro和 Col因为它们是循环中引用的变量。 RoRange和 ColRange已修复，因此您的信息将始终相同。

(请注意，要检查一系列单元格的值，您必须遍历每个单元格。)

For Each Ro In RoRange.Rows
    If Ro.Value <> "" Then
        For Each Col In ColRange.Columns
            If Col.Value = "" Then
                Set_Message ("Cell " & Col.Column & ":" & Ro.Row & " is Empty!")
                Exit Sub
            End If
        Next

    End If

Next