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

[ljuber (美少婦與女兒同學的故事)]

軟體: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可各別設定參數分隔欄位
→ soyoso: 的資料類型，但原文舉的例看起來不一定儲存格的分隔欄位是
→ soyoso: 一致的話，是否先用取代，將_(下底線)取代為_'(下底線加上
→ soyoso: 單引號或其他可區別於目前資料的文字)，再來剖析
→ ljuber: 了解 竟然有這招 感謝!!
→ soyoso: 最後以'(單引號)取代'(單引號)的方式就可將'(單引號)隱藏
→ soyoso: 至儲存格
→ soyoso: https://youtu.be/suFjES-ypSM 上列操作的順序
→ soyoso: 另外刪除回文內"其他可區別於目前資料的文字"，因會於取代
→ soyoso: 時，會將希望的文字格式轉為數字型