VBA新手求助：带日期的数据表格转置失败，盼解决

嘿，作为刚接触VBA的新手，碰到转置日期数据的问题真的太正常了——我当初第一次处理带日期的表格转置时，也踩过一模一样的坑！你提到的Resize直接赋值和Application.Transpose没得到预期结果，大概率是因为这两种方法对日期数据的兼容性，或者数组维度的逻辑没搞对，下面给你两种靠谱的解决方案：

方法一：直接用工作表粘贴转置（最简单，日期格式不丢失） #

如果你的数据本来就在工作表里，直接用Excel自带的粘贴转置功能是最稳妥的，完全不会搞乱日期格式：

Sub TransposeDatesWithPaste()
    Dim sourceRng As Range
    Dim targetStartRng As Range
    
    ' 替换成你的源数据区域
    Set sourceRng = ThisWorkbook.Sheets("Sheet1").Range("A1:C5")
    ' 替换成你想放置转置结果的起始单元格
    Set targetStartRng = ThisWorkbook.Sheets("Sheet1").Range("E1")
    
    ' 复制+粘贴转置，保留所有格式和数据类型
    sourceRng.Copy
    targetStartRng.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    ' 清除剪贴板状态
    Application.CutCopyMode = False
End Sub

这个方法的好处是不用纠结数组维度，Excel会自动处理日期的格式和数值转换，新手友好度拉满。

方法二：手动数组循环转置（可控性强，适合复杂场景） #

如果你需要在VBA里先操作数组再写入工作表，Application.Transpose偶尔会出问题——比如把日期转成纯数字，或者数组过大时报错。这时候手动循环转置更可靠：

Sub TransposeDatesWithArray()
    Dim sourceArr As Variant
    Dim transposedArr As Variant
    Dim rowNum As Long, colNum As Long
    Dim totalRows As Long, totalCols As Long
    
    ' 读取源数据到数组（Range转数组默认是1-based的二维数组）
    sourceArr = ThisWorkbook.Sheets("Sheet1").Range("A1:C5").Value
    totalRows = UBound(sourceArr, 1) ' 源数组的行数
    totalCols = UBound(sourceArr, 2) ' 源数组的列数
    
    ' 初始化转置后的数组：行数=源列数，列数=源行数
    ReDim transposedArr(1 To totalCols, 1 To totalRows)
    
    ' 手动循环交换行列数据
    For rowNum = 1 To totalRows
        For colNum = 1 To totalCols
            transposedArr(colNum, rowNum) = sourceArr(rowNum, colNum)
        Next colNum
    Next rowNum
    
    ' 把转置后的数组写入目标区域
    ThisWorkbook.Sheets("Sheet1").Range("E1").Resize(totalCols, totalRows).Value = transposedArr
    ' 可选：设置目标区域为日期格式
    ThisWorkbook.Sheets("Sheet1").Range("E1").Resize(totalCols, totalRows).NumberFormat = "yyyy/mm/dd"
End Sub

为什么你之前的方法失效？ #

• 你用Resize(UBound(Table2, 1), UBound(Table2, 2)) = Table2其实只是把原数组原样写入，根本没做转置——要转置的话，Resize的参数应该是(UBound(Table2, 2), UBound(Table2, 1))，并且数组要先完成转置。
• Application.Transpose(Tbl1)的问题：如果Tbl1是二维数组，转置后维度会交换，但Excel有时会把转置后的日期当成原始数值（因为日期本质是带格式的数字），这时候需要手动设置目标单元格的日期格式；另外如果数组行数超过65536，这个函数会直接报错，手动循环就没这个限制。

最后给你个小提示：如果转置后日期变成了一串数字，别慌，选中目标区域，设置单元格格式为「短日期」或「长日期」就能恢复正常显示啦！

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