VBA如果工作表%1上的单元格与工作表%2列i中的单元格匹配，那么？

Question

我正在尝试使用vba if语句来检查工作表1上的单元格H22是否与工作表2上的列i中的单元格匹配。

有人能告诉我哪里出问题了吗？谢谢

    If Range("H22").Value Like Worksheets("Sheet 2").Range("I1").Column Then

MsgBox "Match"

Else

MsgBox "No Match Found"

End If

它一直告诉我没有找到匹配项，所以我猜它在表2的列i中找不到匹配的单元格值

Answer 1

代码的问题是，您正在将单个单元格与工作表2上的整个“i”列进行比较。您可以做的是使用查找来查看是否存在匹配值。如果是，则返回match。

这里有一些关于如何做到这一点的代码，我还将定义Range("H22").Value，这样您就可以确切地知道它来自哪里。

Option Explicit

Sub Macro()

Dim oWs As Worksheet
Dim rSearchRng As Range
Dim lEndNum As Long
Dim vFindVar As Variant



Set oWs = ActiveWorkbook.Worksheets("Sheet2")

lEndNum = oWs.Range("I1").End(xlDown).Row

Set rSearchRng = oWs.Range("I1:I" & CStr(lEndNum))

Set vFindVar = rSearchRng.Find(Range("H22").Value)

If Not vFindVar Is Nothing Then

    MsgBox "Match"

Else

    MsgBox "No Match Found"

End If

结束子对象

Here是关于find方法的文档。

Answer 2

因为I列是第9列，所以Worksheets("Sheet 2").Range("I1").Column总是返回"9“。您正在将Range("H22")中的值与"9“进行比较。除非H22是"9“，否则你会得到"No Match Found”。

相反，请尝试使用range对象的.find方法或遍历列查找值。

Answer 3

以下是尝试将单元格值与列中的值进行匹配的典型示例：

Sub james()
    Dim v As Variant, r As Range, rWhere As Range
    v = Sheets("Sheet1").Range("H22").Value
    Set rWhere = Sheets("Sheet2").Range("I:I")
    Set r = rWhere.Find(what:=v, After:=rWhere(1))
    If r Is Nothing Then
        MsgBox "No match found"
    Else
        MsgBox "Match found"
    End If
End Sub