|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):2010
* 아래줄에 질문을 작성하세요 >>
특정 컬럼들만 선택해서 날짜서식으로 바꾸고자 합니다.
해당 컬럼이 몇개만 선택해서 루프문을 돌리고자 하는데 For문에서
특정컬럼을 어떻게 넣을지 몰라서 아래와 같이 넣어 봤는데 에러나내요..
어떻게 수정해햐 할까요..
Sub 날짜서식적용()
'
'
Dim x As Integer
for each x in 35,36,37,47,48,49,53,54,56,57,63,64,65,66,98,103,108,109
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
|
|