Find and remove right parenthesis and preceding 11 characters

NoSparks · #12 03-25-2018, 08:24 PM

Adapting what Debaser suggested...

Code:

Sub RemoveParenth_3()
    Dim rng As Range, lr As Long
lr = Cells.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Set rng = Union(Range("A1:A" & lr), Range("B1:B" & lr), Range("J1:J" & lr))
rng.Replace What:=" (*)", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _
                        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to remove first 12 characters of each cell	King Mustard	Excel	3	04-07-2017 12:06 AM
Can I remove spaces between only Chinese characters?	sivartnosredna7	Word	2	01-09-2017 05:33 AM
How do I Remove A Specific Amount of Characters from Lines in a Document?	tatihulot	Word	5	01-22-2016 05:55 AM
Find and Replace Parenthesis with Itallics	Richard Carr	Word	1	01-06-2015 06:44 PM
How to remove these unknown characters appearing	rajpes	Word	1	03-02-2012 03:24 AM