VBA录制代码:

Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

想把EXCEL内资料使用TAB做分隔符号?

Set Selection = sh.Columns("B:B")
Selection.TextToColumns Tab:=True

搞定

Set xlApp = CreateObject("Excel.Application")               '创建EXCEL应用类
xlApp.DisplayAlerts = False                                 '把Excel的警告讯息关掉

前面要加取消警告，不然会一直跳确认按钮

自己能解决的问题，还是自己解决较好。