Curso de Macros utilizando Matrices Ejercicio 2

Curso de Macros en Excel para aprender cómo utilizar matrices. En el curso veremos ejercicios para leer los datos de la hoja, llevarlos a una matriz, procesar los datos en memoria, pasar los datos a la matriz de salida y por último poner el resultado a las celdas. 

Sub matriz_ejercicio2()

  Dim a As Variant, b As Variant

  Dim i As Long, j As Long, k As Long

  

  a = Range("A1:D5").Value

  ReDim b(1 To UBound(a, 1) * UBound(a, 2), 1 To 3)

  

  For i = 2 To UBound(a, 1)

    For j = 2 To UBound(a, 2)

      k = k + 1

      b(k, 1) = a(i, 1)

      b(k, 2) = a(1, j)

      b(k, 3) = a(i, j)

    Next

  Next

  

  Range("F2").Resize(k, 3).Value = b

End Sub