Excel VBA检查2列中的文本

我有一张表，有两列36行。宏应执行以下操作： 1如果第1行第1列中的单元格不为空且第1行第2列中的单元格为空，则宏应停止，否则应继续，并在检查所有36行后，如果未找到此类值，则应停止并执行SaveAs。我找到了这段代码并做了一些修改，但它并没有像我描述的那样工作：

Sub CheckRows()
    Dim i As Long
    For i = 12 To 47
        'Criteria search
        If Sheets("Claims").Cells(i, 2).Value <> "" Then
            If Sheets("Claims").Cells(i, 3).Value = "" Then
                        Exit Sub
                    Else
            End If
        End If
    Next i
  ActiveWorkbook.SaveAs Filename:="myFile.xlsx", FileFormat:=56
End Sub

---

有人能帮我找出代码出了什么问题吗？感谢您查看第2列和第3列，而不是您所写的第1列和第2列。。。 你从第12排开始，对吗

Sub CheckRows()
    Dim i As Long
    For i = 12 To 47
        'Criteria search
        If Sheets("Claims").Cells(i, 1).Value <> "" Then
            If Sheets("Claims").Cells(i, 2).Value = "" Then
                        Exit Sub

            End If
        End If
    Next i
  ActiveWorkbook.SaveAs Filename:="myFile.xlsx", FileFormat:=56
End Sub

---

我记不清在XL VBA中单元格是如何索引的——您写过关于第1列和第2列的内容，但宏处理的是第2列和第3列？还要检查第12-47行是否正确。您可以调试宏来查看错误，也可以考虑使用ISWORD，它比用空字符串更好，顺便说得更正确。