(Solved) – How to convert this MS Excel VB macro to LibreOffice Calc one? [closed]

  • by
(solved)-–-how-to-convert-this-ms-excel-vb-macro-to-libreoffice-calc-one?-[closed]

I have this MS Excel vba code:

Sub MultiFindNReplace()
'Update 20140722
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

that does a bulk find and replace.

I need its equivalent for LibreOffice Calc.

TIA.

Leave a Reply

Your email address will not be published. Required fields are marked *