修改用于列搜索的宏

Question

我有一个宏，到目前为止，它仅用于从 F 列中搜索一个单元格，但现在我必须搜索 F 列中的所有单元格。如果在 N:AN 范围内找到 F 中的值，则 offset(f,0 ,1) 必须具有单元格值（找到的行、列 AI）。

Sub find()
    Dim FindString As String
    Dim Rng As Range
    FindString = Sheets("Sheet1").Range("f48").Value
    If Trim(FindString) <> "" Then
        With Sheets("Sheet1").Range("n:an")
            Set Rng = .find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Sheets("Sheet1").Range("f48").Offset(0, 1).Value = Rng.Offset(0, 21).Value
            Else
                Sheets("Sheet1").Range("f48").Offset(0, 1).Value = "Nothing found"
            End If
        End With
    End If
End Sub

Answer 1

如果我理解正确的话，也许是这样（它确实假设 F 中的值最多只能找到一次）。

Sub find()

Dim Rng As Range
Dim r As Range

With Sheets("Sheet1")
    For Each r In .Range("F1", .Range("F" & .Rows.Count).End(xlUp))
        If Trim(r) <> vbNullString Then
            With .Range("n:an")
                Set Rng = .find(What:=r.Value, _
                                LookAt:=xlWhole, _
                                MatchCase:=False)
                If Not Rng Is Nothing Then
                    r.Offset(0, 1).Value = .Cells(Rng.Row, "AI").Value
        'Else
        '    Sheets("Sheet1").Range("f48").Offset(0, 1).Value = "Nothing found"
                End If
           End With        
        End If
     Next r
End With

End Sub

Answer 2

看看这是否有帮助。它有点改变，但我认为它可能更干净:)

当然，一旦在 N:NA 范围内“找到”匹配项，您就需要根据偏移标准对其进行调整

Sub Dougsloop()

Dim rCell As Range
Dim rRng As Range
Dim wsO As Worksheet
Dim aRR As Variant

Set wsO = ThisWorkbook.Sheets("Sheet1")

aRR = wsO.UsedRange.Columns("N:NA")

Set rRng = ThisWorkbook.Sheets("Sheet1").Range("F1:F500")
For Each rCell In rRng.Cells
    If Trim(rCell.Value) <> vbNullString Then
        thisValue = rCell.Value
        If IsError(Application.Match(aRR, thisValue, 0)) = True Then
            'Generic Eror Handling
        ElseIf IsError(Application.Match(aRR, thisValue, 0)) = False Then
            'Stuff you do when you find the match
            rCell.Offset(0, 1).Value = "found it"
        End If
    End If
Next rCell

End Sub