列(" A:A ")。挑選
選擇。TextToColumns？目的地:=Range("A1 ")，？數據類型:=xlDelimited，？_
TextQualifier:=xlDoubleQuote，？ConsecutiveDelimiter:=False，？tab:=真，？_
分號:=假，？逗號:=假，？空格:=假，？其他:=真，？其他字符？_
:="。",?FieldInfo:=Array(Array(1，1),?數組(2，1),?數組(3，1),?數組(4，1),?數組(5，_
1)),?TrailingMinusNumbers:=True
結束？潛水艇