[算表] 資料剖析VBA的格式一問

看板Office作者 (美少婦與女兒同學的故事)時間10年前 (2016/01/12 09:28), 10年前編輯推噓0(0010)
留言10則, 2人參與, 最新討論串1/1
軟體:excel 版本:任何版本 簡單的資料剖析vba: Sub 資料剖析test() Dim abc As Worksheet Set abc = Worksheets("原始資料") Range(abc.[A1], abc.[A1].End(xlDown)).Select Selection.TextToColumns Destination:=Range("A1"), Other:=True, _ OtherChar:="_" End Sub 但是有數字的就會變成數字格式 導致我有些是0912123456 會變成912123456 不知道要怎麼預設成都是以文字格式剖析? 原始資料類似下面,以 _ 當分隔 但是不一定長度都一樣 張劭函_A123456789_620202_雞排妹_1_A987654321_780102_林依晨_2_a478965321 _690102_01051235 張曉明_A123456789_620202_01051235 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.192.223.20 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1452562122.A.E6C.html ※ 編輯: ljuber (123.192.223.20), 01/12/2016 09:29:03 ※ 編輯: ljuber (123.192.223.20), 01/12/2016 09:35:07

01/12 10:37, , 1F
range.texttocolumns內有fieldinfo可各別設定參數分隔欄位
01/12 10:37, 1F

01/12 10:39, , 2F
的資料類型,但原文舉的例看起來不一定儲存格的分隔欄位是
01/12 10:39, 2F

01/12 10:40, , 3F
一致的話,是否先用取代,將_(下底線)取代為_'(下底線加上
01/12 10:40, 3F

01/12 10:41, , 4F
單引號或其他可區別於目前資料的文字),再來剖析
01/12 10:41, 4F

01/12 10:48, , 5F
了解 竟然有這招 感謝!!
01/12 10:48, 5F

01/12 10:48, , 6F
最後以'(單引號)取代'(單引號)的方式就可將'(單引號)隱藏
01/12 10:48, 6F

01/12 10:49, , 7F
至儲存格
01/12 10:49, 7F

01/12 10:53, , 8F
上列操作的順序
01/12 10:53, 8F

01/12 10:56, , 9F
另外刪除回文內"其他可區別於目前資料的文字",因會於取代
01/12 10:56, 9F

01/12 10:57, , 10F
時,會將希望的文字格式轉為數字型
01/12 10:57, 10F
文章代碼(AID): #1Mb5RAvi (Office)
文章代碼(AID): #1Mb5RAvi (Office)