Curso de Macros utilizando Matrices Ejercicio 1

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_ejercicio1()

'Incio

  Dim a As Variant, b As Variant

  Dim i As Long, j As Long

'Entradas

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

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

'Proceso

  For i = 1 To UBound(a, 1)

    For j = 1 To UBound(a, 2)

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

    Next

  Next

'Salida

  Range("E1").Resize(UBound(b, 1), UBound(b, 2)).Value = b

End Sub