Поиск компаний для 51 счета

'Процедура получает данный из столбца N(наименования компаний берутся из 60,62 счетов) и Заполняет контрагентов
Sub ПолучитьКонтрагентов()
For i = 6 To shd.Cells.SpecialCells(xlLastCell).Row
   For ii = 1 To 12
      If Not Range("C" & i).Find(Range("N" & ii)) Is Nothing Then  'исходные данные в столбце С, искомые в N
         Range("j" & i) = Range("N" & ii)   'данные присваиваются в j
         Exit For
      End If
   Next ii
Next i
End Sub

Добавить комментарий

Ваш адрес email не будет опубликован.