Отсуствует доступ к отдельным строкам

[An-rey]

Коллеги, плз, помогите разобраться с проблемой.

Программно создаю таблицу.
Каждая новая строка добавляется командой (1):

oTable.Rows.Add BeforeRow:=oTable.Rows(nRow),

где nRow - номер последней строки в таблице.

По ходу наполнения таблицы требуется в некоторых строках создаваемой таблицы разбивать ячейку не несколько строк. Делаю это командой (2):

oTable.Cell(nRow, 4).Split NumRows:=oRcIn.ResolCnt, NumColumns:=1

Проблема в том, что после создания строки, у которой имеется ячейка, разбитая на несколько строк, очередная команда (1) не отрабатывает. Выдается ошибка: Run-time error '5991': Отсутствует доступ к отдельным строкам, поскольку таблица имеет ячейки, объединенные по вертикали.

[viter.alex]

Да, работать не будет. Нужно обращаться к ячейкам, отсеивая нужные по индексу строки

[An-rey]

Алекс, не могли бы Вы привести пример?
Не получается добавить строку в таблицу(2 строки, 7 столбцов), обращаясь только к ячейкам.

[viter.alex]

Метод Add имеет такую особенность, что если не указать параметр BeforeRow, то строка будет добавлена сразу после диапазона для которого этот метод вызывается.
Трудно посоветовать точно, не видя вашу конкретную задачу, например так:

Sub test()
  Dim oTbl As Table
  
  Set oTbl = Selection.Tables(1)
  
  With oTbl
    Do While .Rows.Count < 15
      .Cell(.Rows.Count, 1).Range.Rows.Add
      .Cell(.Rows.Count - 1, 4).Split 5, 1
    Loop
  End With
End Sub

Код вставляет строку перед последней строкой таблицы и разбивает ячейку в 4-м столбце вставленной строки на 5 строк. Я не использую параметр количества строк, т.к. он постоянно меняется при вставке строк и разбиении ячеек.