如何选择与其他单元格值vba匹配的单元格

有人知道我如何选择与另一个单元格匹配的区域中的任何单元格吗？ 例如：

比较范围（“A9:A200”）和范围（“B9”）

如果说范围（“A10”）是“贝灵汉”，范围（“B9”）也是贝灵汉

我希望A10成为活动单元格

---

任何帮助都将不胜感激。谢谢。

使用match这样的公式会更容易吗？如果要从VBA调用它，可以使用worksheetfunction.match。

将此代码放在保存数据的工作表的工作表代码模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, f As Range, v
    Set rng = Application.Intersect(Target, Me.Range("B9"))

    If Not rng Is Nothing Then

        v = Trim(rng.Value)

        If Len(v) > 0 Then
            Set f = Me.Range("A10:A500").Find(what:=rng.Value, _
                                              lookat:=xlWhole)

            If Not f Is Nothing Then
                If Me.Range("A9").Value = "checkin" Then
                    f.Offset(0, 1).Value = Now
                    f.Offset(0, 2).Value = "userName" 'from where?
                    f.Offset(0, 3).Value = "Checked In" 
                End If
            Else
                MsgBox "Scanned value '" & rng.Value & "' not found !", _
                        vbExclamation
            End If 'found a match

        End If 'cell has a value

    End If 'checking this value

End Sub

---

调整范围以适应…

范围对象有一个

Find（）

方法，可用于匹配值。对于范围中的每个单元格（“A9:A210”）如果单元格。值=范围（“b10”）。值然后是单元格。如果下一个端点SubIm为工作中的工具制作条形码扫描仪签入/签出表，请选择“结束”。我已经做好了。但是一位同事想出了一个让登记更容易的办法。基本上是A9等于签入，b9等于A10:A200范围内的值。选择该单元格。为了便于讨论，它将是A10，然后我将激活单元格偏移，并自动填写时间和签名的技术人员。我是vba新手，从昨天开始。我一直像个疯子一样在谷歌上搜索，但我想发布这个问题可能会更容易。可能是你的重复问题可以编辑你原来的问题，并将你的评论中的新信息添加到问题中。谢谢蒂姆，我明天上班时会给你一次机会。目前我的电子表格正在工作，只是想为明天制定一个游戏计划。对不起，我最初的问题不是很详细。如果它不起作用，我会把它带回家，更具体、更详细地回答我的问题，以便社区能够提供帮助。再次感谢！