首先明确：这不是bug，而是Application.Transpose函数的设计特性。Excel的这个函数在处理单列（或单行）的二维数组时，会自动将结果简化为一维数组——这是为了和Excel单元格区域的交互逻辑对齐（比如单个列区域转置后在工作表中显示为单行，VBA会将其映射为更紧凑的一维数组）。而当转置的是多列/多行的二维数组时，函数会保持二维结构，这就是你看到两种情况结果不同的原因。

如何获取转置后的单行二维数组？ #

这里提供几种可靠的解决方案：

方案1：用Application.Index强制转换为二维数组

通过Index函数可以将转置后的一维数组“包裹”成单行二维数组，代码示例：

testArray1 = Application.Index(Application.Transpose(tKey), 1, 0)

执行后，testArray1会变成1行3列的二维数组（索引默认从1开始），你可以通过testArray1(1,1)、testArray1(1,2)这样的方式访问元素，完全符合你的预期。

方案2：手动将一维数组重构为二维数组

先执行转置得到一维数组，再通过ReDim重新定义数组结构：

testArray1 = Application.Transpose(tKey)
' 将一维数组转为1行n列的二维数组
ReDim Preserve testArray1(1 To 1, LBound(testArray1) To UBound(testArray1))

注意：Application.Transpose返回的一维数组默认是基于1的索引，所以重构后的数组索引也会保持这一特性。

方案3：自定义转置函数（通用场景）

如果经常需要处理这类情况，可以写一个自定义函数，自动判断数组类型并返回二维结果：

Function TransposeTo2D(arr As Variant) As Variant
    Dim resultArr As Variant
    Dim i As Long
    
    ' 判断是否为单列二维数组
    If UBound(arr, 2) = LBound(arr, 2) Then
        ' 构建1行n列的二维数组
        ReDim resultArr(1 To 1, LBound(arr, 1) To UBound(arr, 1))
        For i = LBound(arr, 1) To UBound(arr, 1)
            resultArr(1, i) = arr(i, LBound(arr, 2))
        Next i
    Else
        ' 多列数组直接用原生Transpose
        resultArr = Application.Transpose(arr)
    End If
    
    TransposeTo2D = resultArr
End Function

调用方式很简单：

testArray1 = TransposeTo2D(tKey)

这个函数会自动处理单列和多列的情况，始终返回二维数组。

修改后的测试代码示例 #

把方案1整合到你的测试代码中，验证效果：

Sub testss()
 Dim tKey(0 To 2, 0 To 0) As Variant
 tKey(0, 0) = 1
 tKey(1, 0) = 2
 tKey(2, 0) = 3
 ' 强制转为二维数组
 testArray1 = Application.Index(Application.Transpose(tKey), 1, 0)
 
 Dim tKey2(0 To 2, 0 To 1) As Variant
 tKey2(0, 0) = 1
 tKey2(1, 0) = 2
 tKey2(2, 0) = 3
 tKey2(0, 1) = 1
 tKey2(1, 1) = 2
 tKey2(2, 1) = 3
 testArray2 = Application.Transpose(tKey2)
 Stop
End Sub

执行后你会发现testArray1已经是符合预期的单行二维数组了。

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