엑셀에 데이터가 입력된 셀에서 편집을 위해 특수 문자를 제거할 때가 종종 있는데요. 이때 함수를 사용하여 복잡한 수식을 작성하는 것이 번거로울 수 있습니다. 오늘은 특수 문자 제거 VBA 코드를 작성하고 해당 코드를 함수처럼 추가하는 방법을 알아보겠습니다.
1. 특수 문자 제거 VBA
엑셀에 특수 문자를 포함한 셀에서 원하는 특수 문자만 삭제하는 VBA 코드는 아래와 같습니다. 아래 코드를 엑셀에 추가하고 적용하는 방법을 살펴보겠습니다.
' Excel에서 특수 문자를 삭제하는 사용자 정의 함수 RSC
' 사용법: =RSC(셀번호, 삭제할 문자들)
' 셀번호: 문자를 삭제할 셀을 지정
' 삭제할 문자들: 삭제하고 싶은 특수 문자들
Function RSC(Cell As Range, CharsToRemove As String) As String
Dim OriginalText As String
Dim CharIndex As Integer
Dim CurrentChar As String
' 셀에서 원본 텍스트 가져오기
OriginalText = Cell.Value
' 삭제할 문자들을 하나씩 확인하면서 원본 텍스트에서 제거
For CharIndex = 1 To Len(CharsToRemove)
CurrentChar = Mid(CharsToRemove, CharIndex, 1)
OriginalText = Replace(OriginalText, CurrentChar, "")
Next CharIndex
' 결과 반환
RSC = OriginalText
End Function
1) VBA 코드 추가하기
① 엑셀을 실행 후 “Alt + F11″을 눌러 VBA 편집기를 실행합니다.
② VBA 편집기 상단에 “삽입” → “모듈”을 클릭합니다.
③ 추가된 모듈 창에 특수 문자 제거 VBA 코드를 붙여넣기 합니다.
2) 사용법
엑셀로 돌아와 특수 문자가 포함된 셀에 VBA 코드를 적용해보겠습니다. 해당 코드의 실행 명령은 “RSC”이며, 수식 구성은 아래와 같습니다.
=RSC ( 셀 주소, ” 제거할 특수 문자1″ & “제거할 특수 문자2″…….)
▼ 특수 문자가 포함된 셀을 선택하고 제거할 특수 문자를 입력합니다. 2개 이상일 때는 &(AND) 기호를 붙여 입력합니다. 주의할 점은 “(따옴표)를 삭제할 때는 “”””와 같이 따옴표를 4번 입력해야 합니다. 이 점만 주의하면 사용에 큰 어려움은 없습니다.
2. VBA 코드 함수처럼 사용하기
위에서 입력한 VBA 코드를 함수처럼 사용하려면, 애드인 파일(.xlam)을 생성하여 기능을 추가하면 되는데요. 이전 버전 엑셀을 사용한다면, VBA 코드를 추가해서 새로 추가된 함수도 사용할 수 있습니다.
① 코드를 입력한 문서를 다른이름으로 저장하고, 확장자를 “.xlam” 으로 저장합니다. 예시에서는 “특수-문자-제거.xlam” 으로 저장했습니다.
② 엑셀 상단 메뉴에서 파일 → 옵션 → 추가 기능 → 관리 → 이동을 선택합니다.
③ 추가 기능 대화상자에서 “찾아보기”를 클릭하고 저장했던 “특수-문자-제거.xlam” 파일을 선택 후 “확인”을 누릅니다.
④ 추가 기능 대화상자에 추가된 “특수-문자-제거”를 체크하고 확인을 클릭합니다.
기능 추가를 마치면, VBA 코드를 함수처럼 사용할 수 있습니다.
마치며
오늘은 특수 문자 제거 VBA 코드 사용 방법과 코드를 함수처럼 사용하는 ‘기능 추가’에 대해 알아보았습니다. 이 방법을 통해 엑셀에서 특수 문자를 쉽게 제거할 수 있으며, 애드인(.xlam)으로 기능을 추가하면 다양한 기능을 함수처럼 활용할 수 있습니다. 오늘 내용이 도움되셨길 바랍니다.