recorrer un array

[jjlallana]

Te mando un ejemplo que suma dos matrices dinamicas de la misma dimensión y que me funcionó en su día:

Function SumaMatrices(M1,M2)
if Ubound(M1)<> Ubound(M2) or UBound(M1,2)<> UBound(M2,2) Then
Alert "Ambas matrices deben tener las mismas dimensiones"
Exit Function
End if
Dim cols, filas
cols= Ubound(M1,1) : filas= Ubound(M1,2)
Dim i, j
Dim result()
ReDim Result( cols, filas)
For i=0 To cols
For j=0 To filas
Result(i, j)= M1(i, j) + M2(i, j)
Next
Next
Suma matrices = Result
End function

Espero que te sirva