ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤¤­^¦r¦ê¥u¯d¤¤¤å

Sub zz()
Dim a
a = Range("b9:b" & [b65536].End(3).Row).Value
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[\!-~\s]*"
    For i = 1 To UBound(a)
        a(i, 1) = .Replace(a(i, 1), "")
    Next
    [b9].Resize(i - 1, 1) = a
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD