【VBA】配列の縦横変換

Public Function TransposeArray(ByRef ary As Variant) As Variant
    Dim Elm As Elm: Set Elm = New Elm
    Elm.Add ary
    
    Dim tmp As Variant
    ReDim tmp(Elm.xFirst To Elm.xLast, Elm.yFirst To Elm.yLast)
    
    Dim i As Long
    Dim j As Long
    For i = Elm.xFirst To Elm.xLast
        For j = Elm.yFirst To Elm.yLast
            tmp(i, j) = ary(j, i)
        Next j
    Next i
    
    TransposeArray = tmp
End Function

ary = WorksheetFunction.Transpose(ary)