COCO研究院

 找回密碼
 註冊
搜索
查看: 5889|回復: 1

[EXCEL] 請教 EXCEL VBA 問題

[複製鏈接]
發表於 17-7-3 15:08 | 顯示全部樓層 |閱讀模式
  請教 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
 樓主| 發表於 17-7-3 21:31 | 顯示全部樓層
突然想到了
"A" & (i)

改一下就OK
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

手機版|Archiver|站長信箱|廣告洽詢|COCO研究院

GMT+8, 24-11-2 18:17

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.

快速回復 返回頂部 返回列表
理財討論網站 |