VBA ручная транспонирование - PullRequest
Новая
       12

VBA ручная транспонирование

0 голосов
/ 04 июля 2018

Итак, я заметил, что Application.transpose не занимает более 255 символов, а мой массив содержит более 300 символов или около того. Есть ли ручной или другой способ транспонировать массив? В настоящее время я использую 

Function Transpose(arrIn) As String()
    Dim arrOut() As String, r As Long, ln As Long, i As Long

    ln = (UBound(arrIn) - LBound(arrIn)) + 1
    ReDim arrOut(1 To ln, 1 To 1)
    i = 1
    For r = LBound(arrIn) To UBound(arrIn)
        arrOut(i, 1) = arrIn(r)
        i = i + 1
    Next r
    Transpose = arrOut

End Function

Но я заметил, что это занимает только 1D массив и транспонирует его, но я должен быть в состоянии перейти от 1D к 2D и увидеть стихи. Кто-нибудь, кто знает, как сделать это эффективно?

Обновлено: это то, что я сейчас использую, но я думаю, что это требует некоторых улучшений. 

Function Transpose1(arrIn) As String()
    Dim arrOut() As String, r As Long, ln As Long, i As Long

    ln = (UBound(arrIn) - LBound(arrIn)) + 1
    ReDim arrOut(1 To ln)
    i = 1
    For r = LBound(arrIn) To UBound(arrIn)
        arrOut(i) = arrIn(r, UBound(arrIn, 2))
        i = i + 1
    Next r
    Transpose1 = arrOut

End Function


' From one 2 two
Function Transpose2(arrIn) As String()
    Dim arrOut() As String, r As Long, ln As Long, i As Long

    ln = (UBound(arrIn) - LBound(arrIn)) + 1
    ReDim arrOut(1 To ln, 1 To 1)
    i = 1
    For r = LBound(arrIn) To UBound(arrIn)
        arrOut(i, 1) = arrIn(r)
        i = i + 1
    Next r
    Transpose2 = arrOut

End Function
...