Excel vba manipuluje tablicami bez cykli

N

 n = 5
 a = Array(1, 2, 3, 4, 5)
 b = Array(1, 2, 3, 4, 5)
 [a1].Resize(n) = Evaluate("{" & Join(a, ";") & "}*{" & Join(b, ";") & "}")