Hi,
Please I need help in the following exercise. I have to poblate the Vector A(k, 1) with elements of the Array B(i, j) by transposing the elements without using the Transpose VBA function. That means that I have to create a formula that transposes B(i, j) for example for a 4x3 Array.
Code
- Option Explicit
- Option Base 1
- Sub JumbleArray()
- 'Place your code here
- Dim i As Integer, j As Integer, k As Integer, Temp As Integer
- Dim nr As Integer, nc As Integer, n As Integer, B() As Variant, A() As Variant, rn As Integer
- nr = Selection.Rows.Count
- nc = Selection.Columns.Count
- n = nr * nc
- ReDim B(nr, nc) As Variant
- ReDim A(n, 1) As Variant
- For i = 1 To nr
- For j = 1 To nc
- B(i, j) = Selection.Cells(i, j)
- Next j
- Next i
- k = 1
- For i = 1 To nr
- For j = 1 To nc
- A(k, 1) = B(j - i + nr * i - nr + 1, j)
- k = k + 1
- Next j
- Next i
- For j = 1 To n
- rn = WorksheetFunction.RandBetween(1, n - j + 1)
- Temp = A(n - j + 1, 1)
- A(n - j + 1, 1) = A(rn, 1)
- A(rn, 1) = Temp
- Next j
- For i = 1 To nr
- For j = 1 To nc
- B(i, j) = A(k, 1)
- k = k + 1
- Next j
- Next i
- End Sub
