cloud1234 發表於 17-7-3 15:08

請教 EXCEL VBA 問題

請教 1下 各位大大

Range("A12").Select
      
    Selection.TextToColumns Destination:=Range("C12"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
      Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
      :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
      Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
      
   
      
   Range("A33").Select
      
    Selection.TextToColumns Destination:=Range("C33"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
      Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
      :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
      Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
      
   
      Range("A54").Select
      
    Selection.TextToColumns Destination:=Range("C54"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
      Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
      :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
      Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
      


想要弄成迴圈要怎處理
a12 c12
a33 c33
a54 c54
到a285 c285

cloud1234 發表於 17-7-3 21:31

突然想到了
"A" & (i)

改一下就OK
頁: [1]
查看完整版本: 請教 EXCEL VBA 問題