excel vba在行中选择值，这是通过为每个选择的

Question

我正在尝试逐行循环浏览我的工作表rngSAP 的范围。如果该行中单元格 2 的值等于字符串，我想使用该行的一些数据。这就是我所拥有的，但我收到type not matched 错误。

with shtSAP
    Set rngSAP = .Range(.Cells(1, 1), .Cells(rowsSAP, colsSAP))
    For Each cellSAP In rngSAP.Rows
        If cellSAP(2).Value = "03" Then
            MsgBox (cellSAP(5))
        End If
    Next
end with

谁能帮我写出正确的代码？

Answer 1

这是你正在尝试的吗？

With shtSAP
    Set rngSAP = .Range(.Cells(1, 1), .Cells(rowsSAP, colsSAP))

    For Each cellSAP In rngSAP.Rows
        If Cells(cellSAP.Row, 2).Value = "03" Then
            MsgBox Cells(cellSAP.Row, 2).Value
        End If
    Next
End With

完整示例

Sub Sample()
    Dim shtSAP As Worksheet
    Dim rngSAP As Range
    Dim cellSAP
    Dim rowsSAP As Long, colsSAP As Long

    Set shtSAP = ActiveSheet

    rowsSAP = 5: colsSAP = 5

    With shtSAP
        Set rngSAP = .Range(.Cells(1, 1), .Cells(rowsSAP, colsSAP))

        For Each cellSAP In rngSAP.Rows
            'Debug.Print Cells(cellSAP.Row, 2).Address
            If Cells(cellSAP.Row, 2).Value = "03" Then
                MsgBox Cells(cellSAP.Row, 2).Value
            End If
        Next
    End With
End Sub

或者这个？

Sub Sample()
    Dim shtSAP As Worksheet
    Dim rngSAP As Range
    Dim cellSAP
    Dim rowsSAP As Long, colsSAP As Long

    Set shtSAP = ActiveSheet

    rowsSAP = 5: colsSAP = 5

    With shtSAP
        Set rngSAP = .Range(.Cells(1, 1), .Cells(rowsSAP, colsSAP))
        For Each cellSAP In rngSAP.Rows
            'Debug.Print cellSAP.Cells(, 2).Address

            If cellSAP.Cells(, 2).Address = "03" Then
                MsgBox Cells(cellSAP.Row, 2).Value
            End If
        Next
    End With
End Sub