find komutunu sadece bir sütunda yapmak

[mersilen]

Merhabalar
bir sayfadaki 20 bin veriyi başka bir sayfadaki 50 bin veriyle karşılaştırmak istiyorum.Yalnız makro çok kasıyor.
Find komutunu sadece bir sütunda arama yapacak şekilde düzenleme yapmamız mümkün mü?
Alternatifde olabilir.

Sub arabul1()
'
 Application.Calculation = xlCalculationManual
 Application.ScreenUpdating = False

For i = 2 To 10 'sheets("bk").Range("A65536").End(xlup).Row

    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("B17").Select
    Cells.Replace What:=Sheets("bk").Cells(i, "c"), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=True

 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = true
Next i
End Sub

 

[Ömer]

Merhaba,

Cells

yerine,

[A:A] yazarsanız sadece A sütununda arar.

.

 

[mersilen]

Ömer bey teşekkür ederim.