VBA texttocolumns忽略一列

Question

我的数据以前曾被嵌入到Excel中，并希望将这些数据自动放入正确的格式。

现在我的约会时间如下：28122012，应该是28.12.2012 我的代码，我把它与我在网上找到的一些资源一起放在一起，除了一个障碍外，效果很好......它忽略了第五列：

   Dim rngS As Range
    For Each rngS In .Range("F:F,U:W").Columns
        rngS.TextToColumns Destination:=rngS.Cells(1, 1),  _ 
DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)
    Next

我不确定为什么会这样做。我已经通过写出每一栏进行了实验，但没有去。第五列保持不变，而其周围的所有内容都经过适当格式化。

为什么会出现这种情况？

谢谢！

Answer 1

问题是它粘贴的字段是将值视为数字。

唯一真正的补救措施是将类型设置为Text以及可能具有此类日期值的其他列。那么01122012将不会失去它的起始零点。

或者，您可以让后续代码或公式预测缺失的零，并使用LEFT()，RIGHT()和类似函数来回溯日期值。