vba - 查找单元格中的值是否存在于另一个范围/单元格中

Question

我需要一段代码，它从单元格中获取值并检查另一列中的值，然后返回真/假答案或类似的答案。

那我就用条件句来表达类似

If "Value in cell B1" exists in Column C Then

Do nothing

Else

Msgbox "Please enter existing/valid value in B1"

End if

我根本不知道该怎么做。提前感谢您的帮助!

Rgards吉姆

Answer 1

您可以使用 Range.Find 来执行此操作。

Dim rng as Range
Set rng = Range("C:C").Find(What:=Range("B1").Value), _
                              LookIn:=xlValues, _
                              LookAt:=xlWhole, _
                              SearchOrder:=xlByRows, _
                              SearchDirection:=xlNext, _
                              MatchCase:=False) 
If rng is nothing Then
    Msgbox "Please enter existing/valid value in B1"
Else
    ' value of b1 found in column C
    ' do something else
End If

这将检查单元格B1的值是否在C列的任何单元格中。

rng 变量将指向 C 列中第一次出现的 b1 值。

关于.find的所有参数的更多信息可以在msdn找到:https://msdn.microsoft.com/de-de/library/office/ff839746.aspx