Curso de Macros utilizando Matrices Ejercicio 3

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_ejercicio3()
  Dim a As Variant, b As Variant
  Dim i As Long, j As Long, k As Long, m As Long, lr As Long
  
  lr = Sheets("Plantilla").Range("A" & Rows.Count).End(3).Row
  a = Sheets("Plantilla").Range("A1:L" & lr).Value
  ReDim b(1 To UBound(a, 1) * 7, 1 To UBound(a, 2))
  
  For i = 2 To UBound(a, 1)
    m = 5
    For j = 1 To 7
      k = k + 1
      b(k, 1) = a(i, 1)
      b(k, 2) = a(i, 2)
      b(k, 3) = a(i, 3)
      b(k, 4) = a(i, 4)
      b(k, m) = a(i, m)
      b(k, 12) = a(i, 12)
      m = m + 1
    Next
  Next
  
  Sheets("Carga").Range("A2").Resize(k, UBound(b, 2)).Value = b
End Sub