Cómo convertir valores de una tabla en una matriz en VBA (puntos de bonificación)

Atenuar a(10 a 50, 1 a 2) como entero

Atenuar i como entero

Para i = 10 a 50

Si trim(ActiveSheet.Cells(i, 6).Value) = "" Entonces

Salga para

Else

a(i , 1) = Celdas(i, 6).Valor

a(i, 2) = Celdas(i, 4).Valor

Finalizar si

'Depurar.Imprimir a(i, 1) & " " & a(i, 2)

Siguiente i

End Sub