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

作者: ljuber (美少婦與女兒同學的故事)   2016-01-12 09:28:39
軟體: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
作者: soyoso (我是耀宗)   2016-01-12 10:37:00
range.texttocolumns內有fieldinfo可各別設定參數分隔欄位的資料類型,但原文舉的例看起來不一定儲存格的分隔欄位是一致的話,是否先用取代,將_(下底線)取代為_'(下底線加上單引號或其他可區別於目前資料的文字),再來剖析
作者: ljuber (美少婦與女兒同學的故事)   2016-01-12 10:48:00
了解 竟然有這招 感謝!!
作者: soyoso (我是耀宗)   2016-01-12 10:48:00
最後以'(單引號)取代'(單引號)的方式就可將'(單引號)隱藏至儲存格https://youtu.be/suFjES-ypSM 上列操作的順序另外刪除回文內"其他可區別於目前資料的文字",因會於取代時,會將希望的文字格式轉為數字型

Links booklink

Contact Us: admin [ a t ] ucptt.com