将VBA简单宏转换为LibreOffice宏

Question

我有以下宏，它接受一组稀疏数据，并将每行的唯一条目复制到最左边的列中。 Example of data

我希望有人可以将这个宏重写为一个可以在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

数据示例

Answer 1

看看Andrew Pitonyak's macro document。第6节是处理Calc宏的区域。

• 获取所选行，其代码类似于第6.9节aniso8601==1.1.0 coverage==4.0.3 flake8==2.5.1 Flask==0.10.1 Flask-MySQLdb==0.2.0 Flask-RESTful==0.3.5 Flask-Script==2.0.5 gevent==1.1rc3 greenlet==0.4.9 gunicorn==19.4.5 itsdangerous==0.24 Jinja2==2.8 json-logging-py==0.2 MarkupSafe==0.23 marshmallow==2.4.2 mccabe==0.3.1 mysqlclient==1.3.7 nose==1.3.7 pep8==1.5.7 pyflakes==1.0.0 python-dateutil==2.4.2 python-json-logger==0.1.4 pytz==2015.7 six==1.10.0 SQLAlchemy==1.0.11 Werkzeug==0.11.3 。
• 还使用类似于第6.14节Fill selected range with text。
的代码