Читаем данные из макета в тч. хочу сделать более оптимизированно:

   ЕдиницыИзмерения = Новый ТаблицаЗначений();
   ЕдиницыИзмерения.Колонки.Добавить("ЕдИзмерения");
   ЕдиницыИзмерения.Колонки.Добавить("КодПоОКЕИ");
   
   МакетХранения = ПолучитьМакет("ЕдиницыИзмерения");
   ИндСтроки=3;
   Пока Истина Цикл
       ЕдИзмерения=МакетХранения.Область(Строка("R")+Строка(ИндСтроки)+Строка("C")+Строка("1")).Текст;
       КодПоОКЕИ=МакетХранения.Область(Строка("R")+Строка(ИндСтроки)+Строка("C")+Строка("2")).Текст;
       Если ПустаяСтрока(ЕдИзмерения) Тогда
           Прервать;
       КонецЕсли;
       НовСтр = ЕдиницыИзмерения.Добавить();
       НовСтр.ЕдИзмерения=ЕдИзмерения;
       НовСтр.КодПоОКЕИ=КодПоОКЕИ;
       ИндСтроки=ИндСтроки+1;
   КонецЦикла;

(0) а что, медленно работает, что ли?..

(1) хочу вот эту мутоту красивее записать

НовСтр = ЕдиницыИзмерения.Добавить();
НовСтр.ЕдИзмерения=ЕдИзмерения;
НовСтр.КодПоОКЕИ=КодПоОКЕИ;

(1) напиши вот так
НовСтр = ЕдиницыИзмерения.Добавить();
НовСтр.ЕдИзмерения = ЕдИзмерения;
НовСтр.КодПоОКЕИ   = КодПоОКЕИ;

(3) -> (2)

(2) а вообще оптимизировать надо в другом месте

Если уж заговорили про красивости, то какой сакральный смысл имеет сие выражение: Строка("C")+Строка("1") ?

(6)и вообще строка...

ЕдИзмерения=МакетХранения.Область("R"+Строка(ИндСтроки)+"C1").Текст;

Для Сч = 1 По МакетХранения.КоличествоСтрок() Цикл

КонецЦикла;

ну и в цикле без промежуточных присваиваний... хотя что тут оптимизировать...

Хинт: проверь, что будет, если количество строк перевалит за тыщу.

а, у тебя начальное значение цикла будет 3, да :)

(10) будет ветка про "помогите убрать пробел"

а еще лучше в макете сделать вертикальные области вместо RC

в 1 строчку все забахай, будет тебе оптимизация