Excel VBA Macro: Remove Special Characters (in List of Strings) & Post New Strings Next to Old Ones

Опубликовано: 07 Март 2025
на канале: greggowaffles
1,049
17

Excel VBA Macro: Remove Special Characters (in List of Strings) & Post New Strings Next to Old Ones

💥Subscribe:    / @greggowaffles  

Code:
Sub remove_spec_chars_in_list()

Dim ws As Worksheet
Dim spec_chars As Variant
Dim x As Variant
Dim row_count As Integer
Dim i As Integer
Dim cur_str As String

Set ws = ThisWorkbook.Sheets("Sheet1")
spec_chars = Array("<", ">", "\", "/", "?", "*", ":", """", "|")

ws.Activate
row_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))

For i = 2 To row_count
cur_str = ws.Cells(i, 1).Text

For Each x In spec_chars
cur_str = Replace(cur_str, x, "")
Next x

ws.Cells(i, 2) = cur_str

Next i

End Sub

#excelvba #excelmacro