為什麼這篇vba欄位轉數字鄉民發文收入到精華區：因為在vba欄位轉數字這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者ljuber (美少婦與女兒同學的故事)看板Office標題[算表] 資料剖析VBA的格式一問時...
軟體: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
→ soyoso: range.texttocolumns內有fieldinfo可各別設定參數分隔欄位 01/12 10:37
→ soyoso: 的資料類型，但原文舉的例看起來不一定儲存格的分隔欄位是 01/12 10:39
→ soyoso: 一致的話，是否先用取代，將_(下底線)取代為_'(下底線加上 01/12 10:40
→ soyoso: 單引號或其他可區別於目前資料的文字)，再來剖析 01/12 10:41
→ ljuber: 了解 竟然有這招 感謝!! 01/12 10:48
→ soyoso: 最後以'(單引號)取代'(單引號)的方式就可將'(單引號)隱藏 01/12 10:48
→ soyoso: 至儲存格 01/12 10:49
→ soyoso: 另外刪除回文內"其他可區別於目前資料的文字"，因會於取代 01/12 10:56
→ soyoso: 時，會將希望的文字格式轉為數字型 01/12 10:57