Для нн = 1 По ТабДок.ШиринаТаблицы Цикл
Для кк = 1 По ТабДок.ВысотаТаблицы Цикл
Область = ТабДок.Область("R" + Строка(кк) + "C" + Строка(нн));
Если Область.СодержитЗначение Тогда
Если Область.Значение = "кг" Тогда
Область.ЦветФона = WebЦвета.Красный;
КонецЕсли;
Иначе
Если Область.Текст = "кг" Тогда
Область.ЦветФона = WebЦвета.Красный;
КонецЕсли;
КонецЕсли;
КонецЦикла;