좌우공백 제거
자료 정리를 하다보니 공백제거 하는게 정말 중요하다는 걸 느끼고 있어서 적어봅니다.
자료를 정리해서 서버 DB에 업로드하는데 업로드할 때 중복여부를 체크합니다.
분명히 DB에 있는 자료인데 없는 자료라고 인식하여 중복 등록되는 현상이 생기네요.
원인이 뭘까하고 열심히 파악 해봤더니 좌우 공백이 있는채 올라가거나, 유령문자, 쿼터(')처리 때문에 중복검사를 하면 중복이 제대로 검사가 안되더라구요.
누구나 다 아는 쉬운것에서 발생하는 사소한 실수가 엄청난 결과를 초래하기도 한다는 걸 다시금 깨닫게 되어 공백제거를 할 때 몇개나 공백이 제거 되었는지, 그리고 길이를 한번 파악해보려고 적어본 겁니다.
인터넷상에서 자료를 긁어온 경우나 시스템에서 받아온 자료에 유령문자가 있을 수 있습니다.
Sub 좌우공백제거()
Dim rngC As Range '// 각 셀을 넣을 변수
Dim rngAll As Range '// 전체 데이터 영역을 넣을 변수
Dim i As Integer '// 중복 개수를 카운트할 변수
i = 0
Set rngAll = Range([C2], Cells(Rows.Count, "C").End(3)) '// 공백제거 검사를 할 셀을 C열로 지정
Range([H1], Cells(Rows.Count, "I").End(3)).Offset(1).Clear '// 공백제거 표시할 열이 설정된 값 초기화
For Each rngC In rngAll
If rngC <> Trim(rngC) Then
rngC.Offset(0, 5) = Len(rngC) '// 검사하는 셀에서 우측으로 5번째에 길이를 표시하라
rngC = Trim(rngC) '// 좌우 공백 제거
rngC.Offset(0, 6) = Len(rngC) '// 검사하는 셀에서 우측으로 6번째에 공백제거한 길이를 표시하라
i = i + 1
End If
Next rngC
Set rngAll = Nothing '// 변수 초기화
MsgBox "총 " & i & "개 공백제거"
End Sub
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| 고급 Split 함수 사용법 (0) | 2014.10.31 |
|---|---|
| [VBA기초] 틀리기 쉬운 사소한 실수 (0) | 2014.10.02 |
| [VBA기초] 글꼴 정리 (0) | 2014.09.02 |
| [VBA기초] 셀 병합하기 및 셀 병합 해제 (0) | 2014.07.26 |
| [VBA기초] 빈셀일 경우 윗셀의 내용으로 채우기 (0) | 2014.07.26 |
Link2Me