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ください。