не знаю, если это поможет, но у меня была похожая проблема, когда мне нужно, чтобы вставить пустую строку, но это даже немного легче вставить Продублируйте. Я немного не уверены, действительно ли он работает правильно, потому что я получаю плохие результаты из-за других причин, но вот функция, которую я написал для вставки строки (с учетом, чтобы вставленная строка будет продублируйте, а не пустой)
Public Sub InsertRow(ByVal index&, ByRef table As vaSpread)
With table
table.MaxRows = table.MaxRows + 1
Dim i
For i = table.MaxRows To index Step -1
Dim j
For j = 1 To table.MaxCols
Dim tmp
Call .GetText(j, i, tmp)
Call .SetText(j, i + 1, tmp)
Next j
Next i
End With
End Sub
Где индекс - это позиция строки, подлежащей дублированию. Что это значит, в основном копирует содержимое строки в следующую строку, начиная с конца, пока не достигнет индекса. Надеюсь, это помогло.