VBA检查2列文字

Question

我有一张纸，有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

谁能帮我一下，告诉代码有什么问题吗？ 谢谢

Answer 1

您在第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