반응형
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
반응형
'Utility Tip&Tech' 카테고리의 다른 글
FFMPEG 로 동영상 압축 ( MP4 → WEBM ) (0) | 2020.12.19 |
---|---|
[JIRA] JIRA REST API 이슈등록 (0) | 2016.07.26 |
[파워포인트] 트루타입이 아닙니다 (4) | 2016.04.01 |
PDF 가상 프린터 유틸리티 - DoPDF (0) | 2015.01.05 |
Mac 에서 멜론 됩니다요~ (0) | 2014.10.14 |
댓글