Поиск компаний для 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 ‘исходные данные Продолжить чтение Поиск компаний для 51 счета