|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):2010
* 아래줄에 질문을 작성하세요 >>
아래 질문을 통해 답변을 받았는데요..
추가 라인에서 에러가 뜨네요..
for each에서 각 인수를 배열의 변수로 읽어들이는데
coulumns(x,4) 에서 에러가 발생합니다.
어떻게 수정하면 될까요?
====================================================
Dim x As Variant
Dim s As Variant
s = Array(35,36,37,47,48,49,53,54,56,57,63,64,65,66,98,103,108,109)
for each x in s
Columns(x,4).Select ' 각 해당 컬럼을 모두 선택하여 날짜 서식으로 변경하기
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AI1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 5), TrailingMinusNumbers:=True
Next x
End Sub |
|