将 'yyyymmdd hhmmss' 转换为 'mm/dd/yy hh:mm'

我有一行数据（单元格 A3 及以下），其中包含 Unix 时间戳yyyymmdd hhmmss我试图转换成的格式mm/dd/yy hh:mm format 自动地.

当我的数据从单元格 A1 开始时，到目前为止，我的代码可以工作，但我需要 A1 保持空白，因此数据从 A2 开始。Here https://i.stack.imgur.com/oGgIL.png是 A 列的屏幕截图示例：

Sub auto_open()
'
' auto_open Macro
'

'
ChDir "C:\"
Workbooks.Open      Filename:="C:\Users\username\Desktop\file1.csv"
Intersect(Sheets("file1").Range("A:EW"),     Sheets("file1").UsedRange).Copy     ThisWorkbook.Sheets("Golden").Range("A2")
Windows("file1.csv").Activate
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges = False

Dim x As Integer
Dim y As String
Dim z As String
Dim w As String

NumRows = Range("A3").End(xlDown).Row

Windows(ThisWorkbook.Name).Activate
For x = 2 To NumRows
     z = Cells(x, 1).Value
     y = Mid(z, 5, 2) & "/" & Mid(z, 7, 2) & "/" & Left(z, 4)
     w = Mid(z, 10, 2) & ":" & Mid(z, 12, 2) & ":" & Mid(z, 14, 2)
     y = y + TimeValue(w)
     Cells(x, 1).Value = y
Next x

Range("A3").Select

End Sub

无论我将范围设置为 A2 还是 A3 及以下都会出错。

有人有建议吗？

调试亮点y = Mid(z, 5, 2) & "/" & Mid(z, 7, 2) & "/" & Left(z, 4)但我不确定问题是什么。

设置单元格格式（自定义 >mm/dd/yyyy hh:mm:ss）不幸的是，在我的情况下也不起作用。

这将在根本不循环的情况下完成：

Sub kyle()
    With [a3].Resize([a1048576].End(xlUp).Row - 2)
        .Value = Evaluate("transpose(transpose(DATE(MID(" & .Address & ",1,4),MID(" & .Address & ",5,2),MID(" & .Address & ",7,2)) + TIME(MID(" & .Address & ",10,2),MID(" & .Address & ",12,2),MID(" & .Address & ",14,2))))")
    End With
End Sub

注意：然后您可以对日期使用任何数字格式。