VBA转置Excel表格后日期异常：2022年1月8日变8月1日求助

问题根源 #

你的问题出在Application.Transpose的自动日期解析机制上：当日期字符串（如8/1/2022）同时符合两种区域格式（日/月/年 和 月/日/年）时，VBA会根据系统区域设置自动转换，导致日和月颠倒。而像15/2/2022这类日期因为15无法作为月份，所以不会被错误解析。

解决方案 #

方法1：先转文本再转置，恢复日期格式

先将源数据中的日期列转为文本格式，避免转置时的自动解析，转置完成后再将目标区域转回日期格式：

Sub ImportData()
    Dim Fname As String
    Dim Wbk As Workbook
    Dim Sht As Worksheet
    Dim srcRange As Range
    Dim tempArr As Variant
    
    Set Sht = ActiveSheet
    Fname = Application.GetOpenFilename("Excel files (*.xls*), *.xls*", , "select a File", , False)
    If Fname = "False" Then Exit Sub
    Set Wbk = Workbooks.Open(Fname)
    Set srcRange = Wbk.Sheets("Sheet1").Range("A1:C6")
    
    ' 将源数据的日期列（D-F列）转为文本，防止自动解析
    With srcRange.Columns(4).Resize(, 3)
        .NumberFormat = "@"
        .Value = .Value ' 强制将日期转为文本字符串
    End With
    
    ' 执行转置
    tempArr = Application.Transpose(srcRange.Value)
    Sht.Range("A1:F3").Value = tempArr
    
    ' 将目标区域的日期行（A4-A6）转回日期格式
    With Sht.Range("A4:A6")
        .NumberFormat = "dd/mm/yyyy" ' 按需求设置日期显示格式
        .Value = .Value ' 强制将文本转回日期值
    End With
    
    Wbk.Close False
End Sub

方法2：手动遍历单元格转置（最可靠）

完全绕过Application.Transpose，逐个复制单元格的内容和格式，彻底避免自动解析问题：

Sub ImportData_ManualTranspose()
    Dim Fname As String
    Dim Wbk As Workbook
    Dim Sht As Worksheet
    Dim srcRange As Range
    Dim i As Integer, j As Integer
    
    Set Sht = ActiveSheet
    Fname = Application.GetOpenFilename("Excel files (*.xls*), *.xls*", , "select a File", , False)
    If Fname = "False" Then Exit Sub
    Set Wbk = Workbooks.Open(Fname)
    Set srcRange = Wbk.Sheets("Sheet1").Range("A1:C6")
    
    ' 手动转置：源区域的(i行,j列)对应目标区域的(j行,i列)
    For i = 1 To srcRange.Rows.Count
        For j = 1 To srcRange.Columns.Count
            ' 复制单元格值
            Sht.Cells(j, i).Value = srcRange.Cells(i, j).Value
            ' 复制单元格格式，确保日期显示一致
            Sht.Cells(j, i).NumberFormat = srcRange.Cells(i, j).NumberFormat
        Next j
    Next i
    
    Wbk.Close False
End Sub

注意事项 #

• 方法1适合数据量较小的场景，操作简洁；
• 方法2兼容性更强，无论数据格式多么复杂，都能完整保留源单元格的所有属性；
• 确保目标工作表的日期格式设置为你需要的样式（如dd/mm/yyyy），避免显示错误。

内容的提问来源于stack exchange，提问作者Hm_Joy