0

我对宏 TextToColumns 有疑问：我有两种日期格式，一种以 01:00 结尾，另一种以 03:00 结尾，例如：

14/10/2019 03:00

2019 年 8 月 6 日 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:="."

我有结果： 结果

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

如果您对我的宏有什么问题有任何想法，我将不胜感激？

谢谢！

4

1 回答 1

0

目前，您已将其设置为以逗号而不是空格分隔，这可以解释为什么没有任何内容被分隔。

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

输出列的格式也设置为一般，因此它默认为日期并且最后不显示空白时间。

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

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

于 2019-10-29T14:23:01.163 回答