DateValue Returning British Units

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窗口選擇日期選項按鈕，然後從下拉列表中選擇所需的日期格式。