Excel 用于基于单元格值执行某些操作的VBA

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

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

---

请附上屏幕截图或提供样本数据，让我们知道您的excel是什么样子。你好，Santosh，欢迎访问！请张贴您已有的代码，以便我们可以帮助您解决您遇到的问题。+1感谢您在不确切知道他想要什么的情况下以一种始终有效的方式回答了他的问题。我喜欢你在那里开的潜艇玩笑。