Outro Converter macro Excel para Libreoffice

[ThiagoFerreiratp]

Alguém poderia me ajudar a converter o macro abaixo para que ele funcione no libreoffice?

 

Basicamente o código vai comparar valores de duas colunas e me retornar quais são os valores iguais.

 

Segue o código

Sub Apagar_Repetidos()

Dim ws As Worksheet
Dim r1, r2, x, y, i As Long

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

Set ws = Sheets("Plan1")

r1 = ws.Cells(Rows.Count, "A").End(xlUp).Row
r2 = ws.Cells(Rows.Count, "D").End(xlUp).Row
i = 2

ws.Select

For x = 2 To r1
    For y = i To r2
        If Cells(x, "B") = Cells(y, "E") Then
            Cells(x, "A").Resize(, 2).Clear
            Cells(y, "D").Resize(, 2).Clear
            i = y
            Exit For
        End If
    Next
Next x

Range("A1:B" & r1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes

Range("D1:E" & r2).Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlYes

Range("A1").Select

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With

End Sub

E abaixo está uma planilha mostrando esse macro em ação.

 

 

Planilha Cartões.zip

[Schiavinatto]

Ola @ThiagoFerreiratp, uso Win7+LibO6.0.5.2

 

Rodei aqui e esta funcionando,

 

deletei os dados da Plan2 e Apaguei o fundo de célula, da Plan2 e Plan1, deixei tubo branco. 

 

Após rodar a macro, ficou como estava.

 

Detalhe quando salvo em xlsm ou xlsx o botão some, salvei em xls o botão OK, e continuou funcionando.