Dim Nomenclature702 As Range
Dim LookUpValue As Variant

Set Nomenclature702 = Range("Nomenklatura702")

For i = 2 To Application.Count(Range("A:A")) + 1

LookUpValue = Application.VLookup(Range("F" & i).Value, Nomenclature702, 2, False)


Range("L" & i).Value = LookUpValue

Next i


Nomenclature702 е област от клетки в един шийт от която се прави сравнението

Това е нещо което писах преди няколко дни за един доста обемист файл с няколко хиляди реда данни.

Съдържаниет е скрито
Влезте за да го видите

Редактирано от alexoff на 15.03.05 10:23.