vba 여러문자치환

sub  특수문자공백지우기()

  Dim i As Long
    i = 0
    Do While Range("a3").Offset(i, 0).Value <> ""

        Range("a3").Offset(i, 0).Value = RemoveSpecial(Range("a3").Offset(i, 0).Value)
        Range("a3").Offset(i, 0).Value = Replace(Range("a3").Offset(i, 0).Value, "매장선택대", "")
        i = i + 1
    Loop

end sub

Function RemoveSpecial(Str As String) As String
'updatebyExtendoffice 20160303
    Dim xChars As String
    Dim i As Long
    xChars = "#$%()^*&[]- "
    For i = 1 To Len(xChars)
        Str = Replace$(Str, Mid$(xChars, i, 1), "")
    Next
    RemoveSpecial = Str
End Function

취합.xls

취합.xls

0.06MB