返回列表 上一主題 發帖

[發問] 各位好，我想請問一個資料剖析的問題

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
1# 跳轉到 »
發表於 2013-4-18 12:29 | 顯示全部帖子
回復 1# ss961471

請開啟隨便EXCEL 點選ALT+F11  開啟巨集編輯程式   再右鍵您所開啟的EXCEL  插入模組 把以下程式碼複製進去
在工作頁內新增一個圖案((隨便看要方形圓形)) 對圖案點右鍵 指定巨集  選擇 "簡單的迴圈剖析"  再把資料丟入A1 再點選圖案  就會執行了
此巨集有迴圈設計  所以你可以貼多筆資料 A1 A2 A3 A4 A5  但A1一定要有資料  否則會以為無資料!  如有問題再發問 感謝您  我也是新手
不知是否有幫上忙~~~
  1. Option Explicit
  2. Sub 簡單的迴圈剖析()
  3. Dim g, i As Long
  4. '偵測A1是否有資料，如無資料則離開
  5. If Range("A1") = "" Then MsgBox "無偵測到任何資料，欲剖析的資料請放入A列": End Sub
  6. '偵測有幾行要剖析  (檔案最後一筆的位置)
  7. g = [a65565].End(xlUp).Row
  8. '開始迴圈
  9.         For i = 1 To g ' 迴圈從第一至最後一筆
  10.             Range("A" & i).Select   '選擇要剖析的儲存格
  11.             ' 開始資料剖析 (以  " . "  來區隔)
  12.             Selection.TextToColumns Destination:=Range("A" & i), DataType:=xlDelimited, _
  13.                 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
  14.                 Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
  15.                 :=".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
  16.                 TrailingMinusNumbers:=True
  17.         Next
  18. '迴圈結束

  20. MsgBox "剖析完成"
  21. End Sub
複製代碼
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
2#
發表於 2013-4-18 12:33 | 顯示全部帖子
回復 2# sunnyso


    函數真是高難度= ="
    密密麻麻的....真想像大大一樣厲害!@@"  雖然是引用別人的 但 能理解也是高手!
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題