VBA用于根据单元格值执行某些操作

Question

我有一个电子表格，我在特定列中输入了一个公式，它给了我一个是或否。我想要一个代码，它会搜索该列为“是”，无论它在哪里找到它 - 我应该得到所有这些单元格的行号

Answer 1

尝试一下：

Sub marine()
    For Each r In Intersect(Range("A:A"), ActiveSheet.UsedRange)
        If r.Value = "Yes" Then
            msg = msg & vbCrLf & r.Row
        End If
    Next r
    MsgBox "Yes found in rows " & msg
End Sub