VBA复制转置时遇255字符限制触发Run-time错误'13'求助

我碰到过这个问题好几次了——Excel的Application.Transpose确实有个烦人的历史遗留限制：当单元格内容超过255字符时，转置操作就会抛出Run-time错误'13'（类型不匹配）。这是因为这个函数沿用了早期Excel的字符串长度上限，至今没被修复。下面给你两个靠谱的解决办法：

方法一：手动循环转置（简单直接） #

完全绕开Transpose函数，逐个单元格复制值，不管字符多长都能正常工作：

Sub CopyTranspose(rngCopy As Range, rngDest As Range)
    Dim i As Long, j As Long
    ' 遍历源区域的每一行每一列，将值写入目标区域的对应位置（行列互换）
    For i = 1 To rngCopy.Rows.Count
        For j = 1 To rngCopy.Columns.Count
            rngDest.Cells(j, i).Value = rngCopy.Cells(i, j).Value
        Next j
    Next i
End Sub

这个方法逻辑简单，不需要考虑数组的维度问题，特别适合你处理B17:B46这样的单列数据转置成单行的场景。

方法二：数组手动转置（效率更高） #

如果你的数据量比较大，用数组操作会比逐个单元格循环更快。先把源数据读到数组里，手动转置后再写入目标区域：

Sub CopyTranspose(rngCopy As Range, rngDest As Range)
    Dim srcArr As Variant, destArr As Variant
    Dim i As Long, j As Long
    
    ' 将源区域数据读入数组
    srcArr = rngCopy.Value
    ' 初始化目标数组，行列数与源数组互换
    ReDim destArr(1 To UBound(srcArr, 2), 1 To UBound(srcArr, 1))
    
    ' 手动填充转置后的数组
    For i = 1 To UBound(srcArr, 1)
        For j = 1 To UBound(srcArr, 2)
            destArr(j, i) = srcArr(i, j)
        Next j
    Next i
    
    ' 将转置后的数组写入目标区域
    rngDest.Resize(UBound(destArr, 1), UBound(destArr, 2)).Value = destArr
End Sub

这个方法的优势是减少了VBA和Excel界面的交互次数，数据量越大，效率提升越明显。

你只需要把原来的CopyTranspose过程替换成上面任意一个版本，再运行你的代码，就不会再因为长文本触发类型不匹配错误了。

内容的提问来源于stack exchange，提问作者khus.pt