|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):2010
* 아래줄에 질문을 작성하세요 >>
특정 서버로부터 다운 받은 엑셀내의 불특정 구간의 숫자가 항상 "텍스트 형태로 저장된 숫자" 라는 오류가 발생합니다.
그래서 일일이 숫자로 변경을 하기 위해 VBA를 작성 했는데 어느 정도에 셀까지만 작동을 하고 이 이후것은 작동을 하지 않습니다.
어느 부분이 잘못인지 파악 부탁드립니다.
Sub 텍스트형_숫자_오류_정리()
'
' 매크로1 매크로
' 부정형 테이블을 읽어 들여서 각 셀들마다 읽어들이기/다시 셀에 쓰기 등을 반복
' 셀의 끝까지 진행하여 오류 나오는 텍스트형 숫자를 오류 없게 만들기
'
Dim a As String '(a 라는 변수를 지정)
Dim b As String '(b 라는 변수를 지정)
Dim x As Integer '(x 라는 변수를 지정)
Dim y As Integer '(y 라는 변수를 지정)
Dim i As Integer '(i 라는 변수를 지정)
Dim j As Integer '(j 라는 변수를 지정)
ActiveCell.SpecialCells(xlLastCell).Select
x = ActiveCell.Row - 3
y = ActiveCell.Column
'MsgBox x
'MsgBox y
Range("A4").Activate
i = 0
j = 0
Do While j < y
Do While i < x
a = ActiveCell '‘(현재 셀의 값을 a변수에 입력)
ActiveCell = a '‘(a변수의 값을 현재 셀에 다시 입력)
ActiveCell.Offset(1, 0).Select '‘(현재 셀에서 우측으로 한칸 이동)
i = i + 1
' MsgBox "i=" & i
Loop
i = 4 ' 실제 자료가 있는 셀 위치부터 시작함, 각 컬럼의 4번째 행부터 자료 검색
j = j + 1
' MsgBox "j=" & j
Cells(4, j).Select
a = ActiveCell '‘(현재 셀의 값을 a변수에 입력)
ActiveCell = a '‘(a변수의 값을 현재 셀에 다시 입력)
ActiveCell.Offset(0, 1).Select '‘(현재 셀에서 아래로 한칸 이동)
Loop '‘(반복)
End Sub
|
|