文本到列 - 逗号问题

Question

我试图用 vba 分隔我的专栏。这是我的数据的样子：

第一行：

Time,[CB:01:4A:7D:06:2D] Thermometer_0,[E5:39:8E:7F:E4:11] Thermometer_0,[F1:89:F8:3A:EA:63] Thermometer_0,[F7:C6:4A:56:E4:23] Thermometer_0

第二行：

11/23/2021 10:50,,,,20.9

这意味着我需要在第一列（时间）中有 11/23/2021 10:50，第二列、第三列和第四列为空，第五列为 20.9。第二行有变化。

目前我正在尝试使用此代码：

Sub TextToCol3()
   Range("A1:A135").TextToColumns , xlDelimited, xlDoubleQuote, True, , , True, True, True
End Sub

但这只是忽略了逗号之间的空格，并且只创建了两列。

Answer 1

请测试下一个方法：

Range("A1:A135").TextToColumns DataType:=xlDelimited, ConsecutiveDelimiter:=False, Comma:=True

如果ConsecutiveDelimiter = True，连续的分隔符被视为作为一个分隔符...

Text to columns - issue with commas