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

VBA检查2列文本

1 个答案: