8.х Поиск соседней ячейки в excel

Код:

&НаСервере
Процедура ЗаполнениеСправочника()
      
        COMОбъект = ПолучитьCOMОбъект(ПутьКФайлу);
      
        ЕКСЕЛЬНомерАнкеты = COMОбъект.Sheets(1).Cells(5,2).Value;
        ЕКСЕЛЬФамилия = COMОбъект.Sheets(1).Cells(7,2).Value;
        ЕКСЕЛЬИмя = COMОбъект.Sheets(1).Cells(9,2).Value;
        ЕКСЕЛЬОтчество = COMОбъект.Sheets(1).Cells(10,2).Value;
      
        СправочникОбъект = Справочники.Соотечественники.СоздатьЭлемент();
        СправочникОбъект.ДатаПоступления = ДатаПоступления;
        СправочникОбъект.НоменАнкеты     = ЕКСЕЛЬНомерАнкеты;
        СправочникОбъект.Фамилия         = ЕКСЕЛЬФамилия;
        СправочникОбъект.Имя             = ЕКСЕЛЬИмя;
        СправочникОбъект.Отчество         = ЕКСЕЛЬОтчество;  
        СправочникОбъект.Наименование     = СправочникОбъект.Фамилия + " "   
        + СправочникОбъект.Имя  + " " + СправочникОбъект.Отчество;
      
        СправочникОбъект.Записать();
    
  
КонецПроцедуры

Есть вот такой код, при открытии xls копируем фиксированные ячейки в справочник.

Но как скопировать ячейки которые постоянно в разных местах, можно их найти только поиском(по названию соседней ячейки, всегда такое название)

Можно циклом обходить весь лист для поиска нужной ячейки:
Столбец последней непустой ячейки: COMОбъект.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Column
Строка последней непустой ячейки: COMОбъект.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row

Не понятно как осуществить поиск нужной мне ячейки и сохранить нужную мне ячейку?

Алгоритм примерно такой. Но для полной картины нужен более подробный пример. Скриншота только одного значения записи недостаточно.

Код:

     // Начинаем обходить лист.  сперва запускаем цикл для обхода строк, внутри него цикл для обхода столбцов.
Для Строка  = 1 по COMОбъект.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row Цикл
Длая Столбец  = 1 По COMОбъект.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Column Цикл
     // Если нам попалась соседняя ячейка
Если COMОбъект.Sheets(1).Cells(Строка, Столбец).Value = НазваниеСоседнейЯчейки Тогда
     //Определенные действия по заимствованию значения из COMОбъект.Sheets(1).Cells( --вычисляемые координаты искомой ячейки по координатам соседней ячейки и значениям смещения--).Value
КонецЕсли
КонецЦикла
КонецЦикла

Прикладываю обработку и два файла примера, у Иванова все хорошо загружается в справочник, потому что ячейки стоят на месте и в коде жестко прописано что копировать, а вот петров уже не работает.

Подключаюсь к ексель, ищу ячейку, смешаюсь относительно ячейки вниз и вправо, хочу скопировать текст внутри. Но печаль ЕКСЕЛЬДатаРождения пустая. Прикладываю скриншот с положеним ячейки.

ЯчейкаЕКСЕЛЬДатаРождения = Лист.Find("4. Число, месяц, год рождения",РабочийЛист.Range("A1"));

ЕКСЕЛЬДатаРождения = ЯчейкаЕКСЕЛЬДатаРождения.Offset(1,1).value;




РЕШЕНИЕ грубое:
ЕКСЕЛЬДатаРожденияВремен = ЯчейкаЕКСЕЛЬДатаРождения.Offset(1,0);
ЕКСЕЛЬДатаРождения = ЕКСЕЛЬДатаРожденияВремен.offset(0,1).value;

Здравствуйте.
Можно обойти все ячейки строки и выбрать только те, в которых что-то есть. Вот так, например:

Код:

Попытка
COMОбъект = Новый COMОбъект("Excel.Application");
COMОбъект.WorkBooks.Open(ПутьКФайлу);
ExcelЛист = COMОбъект.Sheets(1);
Исключение
Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
КонецПопытки;

xlLastCell = 11;
ActiveCell = COMОбъект.ActiveCell.SpecialCells(xlLastCell);
RowCount = ActiveCell.Row;
ColumnCount = ActiveCell.Column;
Для Row = 1 По RowCount Цикл
Для Column = 1 По ColumnCount Цикл
Попытка
Если СокрЛП(ExcelЛист.Cells(Row,Column).Value) = "" Тогда
Продолжить;
Иначе
Сообщить(СокрЛП(ExcelЛист.Cells(Row,Column).Value));
КонецЕсли;
Исключение
Сообщить(ROW);
КонецПопытки;
КонецЦикла;
КонецЦикла;

COMОбъект.WorkBooks.Close();
COMОбъект = 0;