Shocker.Pro,
пока только есть такой вариант. над вариантом через СУБД - тоже работаем.
с курсорами боюсь не справлюсь сама, но попробую.
А вот есть же .find метод и ищет он быстро, пробовали на другой задаче. вот из хелпа:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Example
This example finds all cells in the range A1:A500 on worksheet one that contain the value 2 and changes it to 5 .
With Worksheets( 1 ).Range("a1:a500")
Set c = .Find( 2 , lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5 '********
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Только как с помощью него вместо 5 из примера проставлять значение столбца по строке в которой найдено совпадение?
