excel - 将 VBA 简单宏转换为 LibreOffice 宏

Question

我有以下宏，它采用一组稀疏的数据并将每一行中的唯一条目复制到最左边的列中。数据示例

我希望有人可以将此宏重写为可以在 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 的宏文档。第 6 节是处理 Calc 宏的区域。

• 使用类似于 6.9 节的代码获取选定的行Fill selected range with text。
• 也使用类似于第 6.14 节的代码Display all data in a column。