Преобразование простого макроса VBA в макрос LibreOffice

У меня есть следующий макрос, который берет разреженный набор данных и копирует единственную запись из каждой строки в крайний левый столбец. Пример данных

Я надеюсь, что кто-нибудь сможет переписать этот макрос в тот, который будет работать с теми же данными в LibreOffice.

Sub Macro1()

    Dim rng As Range

    Set rng = Selection


    For Each row In rng.Rows
        For Each cell In row.Cells
            If cell <> "" Then
                Debug.Print cell
                row.Cells(1) = cell
            End If
        Next
    Next

End Sub

Пример данных

введите здесь описание изображения


excel vba libreoffice libreoffice-calc libreoffice-basic
person Jon Friedman    schedule 12.01.2016    source источник
comment
Я бы смиренно предложил вам попытаться преобразовать код самостоятельно и вернуться, чтобы отредактировать свой вопрос с вашими первоначальными усилиями, если у вас возникнут проблемы.   -  person    schedule 12.01.2016
comment
Это не услуга переноса кода, когда вы выгружаете код и желаемый новый язык, а кто-то делает всю работу за вас. Попробуйте портировать его самостоятельно. Если у вас возникнут проблемы, вы можете опубликовать вопрос о проблеме, с которой вы столкнулись, включить свой код и задать конкретный вопрос об этой проблеме. Удачи.   -  person Ken White    schedule 12.01.2016
comment
Обычно я бы никогда не попросил кого-то преобразовать код для меня, но, поскольку это разовая задача, использующая набор навыков (LO Basic), я не очень заинтересован в углубленном изучении, и колоссальные 10 строк кода, я подумал, что могу представить это сообществу. Если я спущусь в кроличью нору, изучая тот же самый набор навыков, который у меня есть в VBA для этой одноразовой задачи, я теряю время. Если у кого-то уже есть этот набор навыков и он может преобразовать 10 строк кода, которые я написал, или выполнить то же самое для лучшего ответа, тогда мы оба выиграем. В противном случае мой следующий q будет Как мне превратить выбор в переменнуюYawn   -  person Jon Friedman    schedule 13.01.2016
comment
@ steve-zhan Я видел, что вы ответили на аналогичный вопрос о цикле в stackoverflow.com/questions/14724193   -  person Jon Friedman    schedule 14.01.2016

Ответы (1)


arrow_upward
1
arrow_downward

Взгляните на макродокумент Эндрю Питоньяка. Раздел 6 посвящен макросам Calc.

  • Получите выбранные строки с кодом, аналогичным разделу 6.9 Fill selected range with text.
  • Также используйте код, аналогичный разделу 6.14 Display all data in a column.
person Jim K    schedule 12.01.2016
comment
Большое спасибо за ссылку. Я просматриваю документ и попытаюсь собрать что-нибудь из этих фрагментов. - person Jon Friedman; 13.01.2016