軟體: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