Question

我正在尝试使用VBA转换一系列数据，从文本到列。

当我应用代码时，某些带有日期的单元格不会转换为日期。如果然后输入单元格并按“输入”，它将转换为日期格式。

Selection.TextToColumns _
    Destination:=Range("A1"), _
    DataType:=xlDelimited,  _
    TextQualifier:=xlDoubleQuote,  _
    ConsecutiveDelimiter:=False,  _
    Tab:=True,  _
    Semicolon:=False,  _
    Comma:=False,  _
    Space:=False,  _
    Other:=True,  _
    OtherChar:="$",  _
    FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
                     Array(6, 4), Array(7, 8), Array(8, 4), Array(9, 4), Array(10, 4), _
                     Array(11, 4), Array(12, 4), Array(13, 1), Array(14, 1), Array(15, 1), _
                     Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), _
                     Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), _
                     Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), _
                     Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _
                     Array(36, 1), Array(37, 1), Array( 38, 1), Array(39, 1), Array(40, 1), _
                     Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), _
                     Array(46, 1)), 
    DecimalSeparator:=".",  _
    ThousandsSeparator:=",", _
    TrailingMinusNumbers:=True

在数组中，单元格6至12是日期所在的位置。

Answer 1

由于数据保护政策，我无法更新任何数据。但是，这里有一个小样本，也会发生相同的问题。所有文本都在同一列A1中，每行在不同行中

20191284809 $$ BT $ Anulado $ 23/05/2019 09:22:57

20191304047 $$ BT $ Anulado $ 04/06/2019 20:29:03

20191159599 $$ BT $ Anulado $ 01/03/2019 11:53:10

20191165919 $$ BT $ Anulado $ 06/03/2019 11:33:18

20191247883 $$ BT $ Anulado $ 27/04/2019 14:54:17

20191381935 $$ BT $塞拉多$ 22/07/2019 01:12:03

20191404309 $$ BT $塞拉多$ 03/08/2019 08:56:55

将文本转换为列时如何格式化日期？

1 个答案: