软件: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

range.texttocolumns内有fieldinfo可各别设定参数分隔字段的资料类型，但原文举的例看起来不一定储存格的分隔字段是一致的话，是否先用取代，将_(下底线)取代为_'(下底线加上单引号或其他可区别于目前资料的文字)，再来剖析

了解 竟然有这招 感谢!!

最后以'(单引号)取代'(单引号)的方式就可将'(单引号)隐藏至储存格https://youtu.be/suFjES-ypSM 上列操作的顺序另外删除回文内"其他可区别于目前资料的文字"，因会于取代时，会将希望的文字格式转为数字型