오늘 아는 지인으로 부터 웹에서 다운받은 자료의 텍스트와 날짜앞에 포함된 어퍼스트로피(')를
일괄적으로 없앨수 있느냐는 문의가 왔습니다.
아래 그림과 같이 첨부파일의 노란색 범위에는 어퍼스트로피(') 가 포함되어 있읍니다.
우리가 흔히 알고 있는 찾기 바꾸기 기능을 이용해서 어퍼스트로피가 텍스트앞에 포함된 단어를
다른 텍스트로 바꿀수는 없습니다.
보다 자세한 것은 아래 링크를 참고해 주세요.
http://support.microsoft.com/kb/124739
따라서 가지 해법을 제시 하면 다음과 같습니다.
1. 숫자형범주 (A열의 날짜) 는 임의셀에 1을 입력 ->복사 -> A8:A11 범위선택후 -> 선택하여 붙혀넣기 -> 곱하기
2. B열과 같은 경우는 B열을 전체선택후 찾기: 임대출고 /바꾸기: 임대출고 즉 동일하게 입력후 모두바꾸기
그러나 C열과 D열은 어떻할까요? 일일히 2번과 같이 해도 되겠지만 심한 수고를 하셔야 겠지요?
1번과 2번은 데이터가 숫자형(날짜) 와 일관된 텍스트일경우는 비교적 간단하겟지만 이보다 좋은건 아래의 2가지
방법입니다.
첫번째는 100%는 아닌듯 합니다만. Clean 함수를 이용하는 것이며, 다른 하나는 VBA를 이용하는 방법 입니다.
위와 같은 상황에서 A12셀에 = Clean(A3) 과 같이 함수를 입력후 D15셀 까지 드래그 한다면 동일한 크기의 범위값에
어퍼스트로피를 제거한 값이 반환되게 되며 다시 이범위의 값을 복사하여 원본 영역에 선택하여 붙혀넣기 -> 값으로
전환하면 됩니다.
마지막으로 VBA를 이용하는 방법입니다.
일반모듈에 아래 프로시저를 복사하여 붙혀 넣으신후
노란색 영역을 선택후 실행해 보셔요.
Sub Del_Apostrophe()
With Selection
.Value = .Value
End With
End Sub
어퍼스트로피지우기.xlsm