有没有可能用简单的循环来完成转置功能呢？

当然可以使用简单的循环来完成矩阵转置的功能，特别是在不需要使用VBA的`Transpose`函数的情况下。如果你有一个二维数组（比如一个Range内的数据），你可以创建一个新的二维数组，并通过两层循环交换行和列的元素来达到转置的目的。这里是一个基本的例子：

Sub TransposeWithoutTransposeMethod()
    Dim sourceRange As Range
    Dim destRange As Range
    Dim sourceData() As Variant ' 存储原始数据的临时二维数组
    Dim newRow As Long, newCol As Long
    
    ' 设置源范围并复制数据到sourceData数组
    Set sourceRange = Range("A1:B5")
    sourceData = sourceRange.Value

    ' 创建新矩阵，用于存放转置后的数据
    ReDim Preserve destData(UBound(sourceData, 2), UBound(sourceData, 1)) ' 新维度与原维度相反

    ' 使用双层循环交换行和列
    For newRow = 1 To UBound(sourceData, 1) ' 原始行数
        For newCol = 1 To UBound(sourceData, 2) ' 原始列数
            destData(newRow, newCol) = sourceData(newCol, newRow) ' 转换位置
        Next newCol
    Next newRow

    ' 将转置后的数据写回目标范围
    Set destRange = Range("G1")
    destRange.Resize(UBound(destData), UBound(destData, 2)).Value = destData

    Selection.Calculate
End Sub