Question

我每天下载一个电子表格，其中包含格式为mm / dd / yyyy的日期列，而我的Excel无法将其识别为日期。我需要通过宏将它们转换为可用日期。

我在这里发现了一个非常有用的帖子，我调整了它并提出了以下内容：

    'DateValue Cells
Dim v As Long, vCOLs As Variant
vCOLs = Array("E", "F", "G", "H", "I", "L", "M", "Q", "R")
With ActiveSheet
    For v = LBound(vCOLs) To UBound(vCOLs)
        If CBool(Application.CountA(.Columns(vCOLs(v)))) Then _
            .Columns(vCOLs(v)).TextToColumns Destination:=.Columns(vCOLs(v)), _
              DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)
    Next v
End With

结果是将日期翻到dd / mm / yyyy，使我的数据不正确且无法使用。我读到我可以做一个文本到列，分解它，并把它重新组合在一起，但是已经有9列日期已经过了很多步骤。

关于如何解决此问题的任何想法？

Answer 1

在文本到列中步骤3窗口选择日期选项按钮，然后从下拉列表中选择所需的日期格式。

DateValue返回英国单位

1 个答案: