Почему данная конструкция не отрабатывает,конкретно UnMerge()
For i=1 To m.lnRowCount
lnN=oWorkbook.sheets(1).Cells(i,1).Text && считали значение 1 столбца
lcC=oWorkbook.sheets(1).Cells(i,2).Text && считали значение 2 столбца
If lnN==('expression') && если найдена ячейка со значением "expression"
If oWorkbook.sheets(1).Cells(i,1).MergeCells=.T. Then && и если ячейка объединена,
oWorkbook.sheets(1).Cells(i,1).UnMerge() && то снимаем признак объединения
lcc_prov(lcC) && вызываем функцию заполнения таблицы
Endif
Endif
Endfor