VBA TextToColumns-日期格式

Question

我对TextToColumns宏有问题：我有两种日期格式，一种日期末尾为01:00，另一种日期末尾为03:00，例如：

14/10/2019 03:00

08/06/2019 01:00

当我运行宏时：

    Worksheet.Columns("A:A").TextToColumns Destination:=Worksheet.Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=True, Space:=False, Other:=False, DecimalSeparator:="."

我有结果：

我需要所有数据都采用底部格式，但是我不能通过数字->格式->自定义来做到这一点。

如果您有任何想法，请问我的宏有什么问题？

谢谢！

Answer 1

当前，您已将其设置为以逗号而不是空格分隔，这可以解释为什么没有分隔的情况。

当它拆分时，将为您提供四列数据，因此我编写了一些代码，这些代码将创建和删除临时列以保护和保护您可能在右侧单元格中得到的数据。

输出列的格式也设置为常规，因此默认为日期，并且末尾不显示空白时间。

With Sheets("Sheet1")
    .Columns("B").NumberFormat = "General"
    .Columns("C:E").Insert Shift:=xlToRight
    .Columns("A").TextToColumns Destination:=.Columns("B"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, DecimalSeparator:="."
    .Columns("C:E").Delete
End With

如果您需要任何帮助或进一步的解释，请发表评论，我会尽快与您联系。