Приветствую Есть некий диапазон ячеей Calc, среди которых могут быть пустые. По условию задачи, на место пустых ячеек надо записать нуль.Тупой перебор задачу решает, но это несколько секунд ожидания, на большом объеме данных.Как это было решено на VBA (работало и на OOo 2.4.2 infra с включенным VBA)Код: Range("A1").Select Selection.FormulaR1C1 = "1" Selection.Copy Range(Cells(1, 8), Cells(i, 9)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationMultip ly, _ SkipBlanks:=False, Transpose:=FalseПоскольку в версии 3 эта конструкция работать отказывается, пытаюсь переписать ее на нативном API.Найти пустые ячейки диапазона несложноКод:Sub Fill_Zero Dim oSheet,oRange,oRangeEmpty as Object oSheet = ThisComponent.Sheets(0) oRange = oSheet.GetCellRangeByPosition(1,0,1,19) oRangeEmpty = oRange.QueryEmptyCells()End subно вот дальше проблемы. Автозаполнение не работает, вставить из буфера обмена в разорванный диапазон нельзя. Какие еще варианты?
| 
Линейный вид
