加快列搜索

Question

In order to find specific values in a column and use the corresponding value in the next column, I use code below. Although it works perfectly, I am looking for a faster way to do this search.

However, the column I want to search is increasing in size as you can see in the first part of the code.

This works fast enough for columnsizes up to a few hundred values, but when it has more then 20000 values it is really slowing down. Since I have to do this some ten times in my userform I would like to do this a lot faster.

Public Function LR3() As Long   'Func.loc. HW08
    Worksheets("Sheetname").Activate
    Application.Volatile
    LR3 = Cells(Rows.Count, 1).End(xlUp).Row
End Function

For i = 1 To LR3
    If CStr(Sheet11.Cells(i + 1, 1).Value) = FunctionalLocation.Value Then
        Description.Value = Sheet11.Cells(i + 1, 2).Value
    Else
         'no action
    End If
Next i

Answer 1

use dictionary, try this

Sub test()
Dim Dic As Object, key As Variant, LR3&, oCell As Range
Set Dic = CreateObject("Scripting.Dictionary")
LR3 = Cells(Rows.Count, 1).End(xlUp).Row
For Each oCell In Sheet11.Range("A1:A" & LR3)
    If Not Dic.exists(oCell.Value) Then
        Dic.Add oCell.Value, oCell.Offset(, 1).Value
    End If
Next
For Each key In Dic
    If key = FunctionalLocation.Value Then Description.Value = Dic(key)
Next
End Sub

Answer 2

I assume the 2nd codefragment is copied out of a larger Sub, if so, it would be helpful to know what "FunctionalLocation" and "Description" are exactly.

But I guess this is what you want:

Sheet11.Description.Formula = "=VLOOKUP(A2:B" & LR3 + 1 & ",2,false)"

Sheet11.Range("C2").AutoFill Destination:=Range("C2:C" & LR3 + 1 & ""), Type:=xlLinearTrend