How can I do this in libreoffice cal Multiple value column find and replace

asked 2019-10-12 17:00:53 +0200

Zeusobotic gravatar image

updated 2019-10-12 23:02:20 +0200

m.a.riosv gravatar image

this is for excel youtube video here and here is the code for it

 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, Lookat:=xlWhole
Next
Application.ScreenUpdating = True
End Sub

I keep getting a syntax error in libreoffice. Also I am using linux mint.

edit retag flag offensive close merge delete