Vba 如果范围内的单元格与字符串相同，请在其下的单元格中进行计算

我正试图用VBA编写一个宏。 我希望宏检查单元格范围内的值是否与另一单元格的值相同。然后我想让它识别这个细胞，并在这个细胞下做一些事情

所以，我想检查B2:M6范围内是否有一个与A1值相同的单元格。对于单元格D6，这是真的吗？我想对它下面的单元格进行计算，在本例中是B7

目前我只能检查范围内的值，但现在我不知道该怎么办

Sub CellCheck()
Dim DateString As String
DateString = Range("A1")

    result = IsNumeric(WorksheetFunction.Match(DateString, Range("B6:M6"), 0))
    If result = True Then MsgBox "It is True"
End Sub

可以使用.FIND（）或简单循环：

Sub FindIt()
    Dim V As Variant, rBig As Range, r As Range
    V = Range("A1").Value
    Set rBig = Range("B2:M6")
    For Each r In rBig
        If r.Value = V Then
            r.Offset(1, 0) = "XXX"
        End If
    Next r
End Sub

---

你得到了B2:M6范围，你想将这个范围内的每个单元格值与A1进行比较。您提供了一个示例：检查D6，如果D6=A1，您希望在下面的单元格中进行一些计算，因此在这种情况下为D7。但是你写了B7。这是错的吗？是的，我想计算下一个等于单元格A1的