Alt + F11 조합을 누르면 VBA 가 실행하면 Sheet 모듈 스크립트 작성창이 나타난다.


해당 스크립트에 다음 서브프로시저를 입력.

Sub trimSpaceAll()
  Dim C As Range, R As Range

  Application.ScreenUpdating = False
  Set R = ActiveSheet.UsedRange


  For Each C In R
    If Not IsError(C) And C <> "" Then
      C.Value = LTrim(C.Value)
      C.Value = RTrim(C.Value)
      C.Value = Replace(C.Value, " ", " ")
    End If
  Next C

  Application.ScreenUpdating = True
End Sub


그리고 다시 엑셀로 돌아와 Alt + F8 을 누르고 실행하면 된다.

특별한거 없는 단순 거르는 코드.


위 코드는 다음 블로그를 참조하여 약간 변경하였습니다.

http://mwultong.blogspot.com/2007/01/excel-vba-trim-trailing-spaces.html

+ Recent posts