Another really quick code snippet to replace text in a specific column through code.
Usage is simple: ReplaceTextInColumn "A", "Hello", "Aloha"
Where "A" is the column to replace text in.
Hello is the text to find, and Aloha is the text to replace Hello with (thinking warm this winter).
You can extend this to add more flexibility to the sub arguments (adding case matching, etc).
Sub ReplaceTextInColumn(strColumn, strSource, strDest As String) Columns("" + strColumn + "").Replace What:="" + strSource + "", _ Replacement:="" + strDest + "", _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ MatchCase:=False, _ SearchFormat:=False, _ ReplaceFormat:=False End Sub
— Easy link to my blog: http://aka.ms/leesteve —
If you like my blogs, please share it on social media and/or leave a comment.