MyTetra Share
Делитесь знаниями!
перевернуть массив
16.03.2019
23:43
Текстовые метки: перевернуть массив,array,Transpose
Раздел: !Закладки - VBA - Array

'==============================================================================================

' ##### перевернуть массив

'

'----------------------------------------------------------------------------------------------

Function FnTransposeArr(ByVal arrSourse As Variant) As Variant

Dim i As Long, j As Long


ReDim Arr(LBound(arrSourse, 2) To UBound(arrSourse, 2), LBound(arrSourse, 1) To UBound(arrSourse, 1))

For i = LBound(arrSourse, 1) To UBound(arrSourse, 1) ' Определяем сколько колонок*

For j = LBound(arrSourse, 2) To UBound(arrSourse, 2) ' Определяем сколько колонок*

Arr(j, i) = UCase(arrSourse(i, j))

Next j

Next i

FnTransposeArr = Arr

End Function

'==============================================================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования