vba - 在特定列中使用范围查找方法

Question

我已经对此进行了一段时间的修改，我可以使用下面的代码，但它的搜索量超出了我的预期。我希望它只搜索 C 列而不是整个工作表。我尝试将 Cells.Find 更改为 Range("C1:C10000").Find 但它不返回任何匹配项。

真的被这个难住了。

Dim r As Range

Set r = Sheets("State Agent List").Range("C1:C10000").Find(What:=ComboBox22.Value, _
            After:=ActiveCell, LookAt:=xlPart, SearchOrder:=xlByRows)

If Not r Is Nothing Then
    r.Select
    ActiveWindow.ScrollRow = ActiveCell.Row
Else
    MsgBox "Location not listed."
End If    

Answer 1

您的问题是使用了 ActiveCell，如果它恰好不在 C1:C10000 内，则不会返回任何内容。试试这个:

Dim searchRng As Range: Set searchRng = Sheets("State Agent List").Range("C1:C10000")
Dim r As Range
Set r = searchRng.Find(What:=ComboBox22.Value, After:=searchRng(searchRng.Count))

参数 searchRng(searchRng.Count) 与您正在处理的范围的最后一个单元格相关。它可以工作，但可以这样明确地编写:

searchRng.Cells(searchRng.Cells.Count)

为什么我们需要将 After 参数设置为最后一个单元格？
主要原因是搜索从第一个单元格开始。 HTH