Tuesday, January 23, 2007
Excel/엑셀 VBA] Trim, LTrim, RTrim; 양쪽, 왼쪽, 오른쪽 공백 제거 함수
VBA 매크로에서 Trim 함수는 문자열 양쪽(앞뒤)에 있는 공백 문자를 모두 지우는 함수입니다.
LTrim 함수는 문자열 왼쪽 즉 앞쪽의 공백만 지우고(Trim Leading Spaces),
RTrim 함수는 문자열 우측 즉 끝부분의 공백만 지웁니다(Trim Trailing Spaces).
그러나 어느 함수든, 문자열 속에 포함되어 있는 공백은 그대로 둡니다.
또한 여기서 말하는 공백 문자는, 스페이스(Space)와 탭(Tab) 문자를 모두 포함한 것입니다.
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
Trim() 함수를 사용하여, 엑셀 시트의 모든 셀의 문자열에서, 앞뒤의 불필요한 공백 자동으로 지우기: ▶▶ Excel/엑셀] VBA매크로, 불필요한 공백 제거, 문자열 앞뒤 스페이스 지우기; Trim Trailing Spaces
앞뒤 공백 삭제 프로그램 (온라인 버전):
▶▶ 앞뒤 공백 삭제 프로그램, 단어 좌우 스페이스 지우기; Remove Trim Leading Trailing Spaces
LTrim 함수는 문자열 왼쪽 즉 앞쪽의 공백만 지우고(Trim Leading Spaces),
RTrim 함수는 문자열 우측 즉 끝부분의 공백만 지웁니다(Trim Trailing Spaces).
그러나 어느 함수든, 문자열 속에 포함되어 있는 공백은 그대로 둡니다.
또한 여기서 말하는 공백 문자는, 스페이스(Space)와 탭(Tab) 문자를 모두 포함한 것입니다.
문자열 앞 뒤의 불필요한 공백 지우기 예제
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
Sub Remove_Leading_Trailing_Spaces_Example()
s = " AAA BBB CCC "
s2 = Trim(s) ' 양쪽 공백 모두 제거
s2 = "[" & s2 & "]" ' 공백 유무 체크 위해 괄호 붙임
MsgBox s2
' 출력 결과: [AAA BBB CCC]
s2 = LTrim(s) ' 앞 부분 공백만 제거
s2 = "[" & s2 & "]"
MsgBox s2
' 출력 결과: [AAA BBB CCC ]
s2 = RTrim(s) ' 끝 부분 공백만 제거
s2 = "[" & s2 & "]"
MsgBox s2
' 출력 결과: [ AAA BBB CCC]
End Sub
s = " AAA BBB CCC "
s2 = Trim(s) ' 양쪽 공백 모두 제거
s2 = "[" & s2 & "]" ' 공백 유무 체크 위해 괄호 붙임
MsgBox s2
' 출력 결과: [AAA BBB CCC]
s2 = LTrim(s) ' 앞 부분 공백만 제거
s2 = "[" & s2 & "]"
MsgBox s2
' 출력 결과: [AAA BBB CCC ]
s2 = RTrim(s) ' 끝 부분 공백만 제거
s2 = "[" & s2 & "]"
MsgBox s2
' 출력 결과: [ AAA BBB CCC]
End Sub
Trim() 함수를 사용하여, 엑셀 시트의 모든 셀의 문자열에서, 앞뒤의 불필요한 공백 자동으로 지우기: ▶▶ Excel/엑셀] VBA매크로, 불필요한 공백 제거, 문자열 앞뒤 스페이스 지우기; Trim Trailing Spaces
앞뒤 공백 삭제 프로그램 (온라인 버전):
▶▶ 앞뒤 공백 삭제 프로그램, 단어 좌우 스페이스 지우기; Remove Trim Leading Trailing Spaces
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home