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