|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
코드 좀 봐주세요
**하나의 셀내에서 공백문자가 1개인것과 2개이상인것을 구분하여야 할 이유가 있어
vba 코드표를 만들었는데 자료가 방대하여 시간이 너무 많이 걸립니댜.
그래서 시간을 줄이기 위해 아래와 같이 만들었는데 error 없이 Trim함수가
실행(효과) 없이 그냥 넘어 가네요
물론 다른셀을 이용하면 되고요
제가 알고 싶은것은 코드의 오류 혹은 Trim이 왜 실행 안되는지 입니다.
부탁드립니다. (참고로 Trim위 까지 실행하고 시트에서 함수로 실행하면 됩니다)
chr(32)및 " ",등은 실험하였으니 문제 없는것 같습니다)
Option Explicit
Sub 공백2개이상없애기()
Dim RowL, i As Long
Dim RngD As Variant
Range("a1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
RowL = Selection.Rows.Count
For i = 1 To RowL
RngD = Range("a" & i).Value
RngD = Replace(RngD, " ", ";")
RngD = Replace(RngD, " ", ":")
Range("a" & i).Value = Replace(RngD, ";", " ")
RngD = Replace(RngD, " ", ";")
Range("a" & i).Value = Replace(RngD, ":", Chr(32))
Next
End Sub
|
|