Excel - Operaciones con Matrices

Sub MatrizPorEscalar()

  Dim a, b, i&, j&

  a = [{1, 2, 3; 4, 5, 6; 7, 8, 9}]

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

  For i = 1 To UBound(b, 1)

    For j = 1 To UBound(b, 2)

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

    Next j

  Next i

End Sub

Sub MatrizPorEscalar2()

  Dim b: b = [4 * {1, 2, 3; 4, 5, 6; 7, 8, 9}]

End Sub