inicializar matriz

Hola Adolfo,

Prueba el comando Erase. P.ej:

'En este caso se ponen todos los valores a Empty
Sub test()
Dim c(1 To 20, 1 To 10) As Variant
For i = 1 To 20
For j = 1 To 10
c(i, j) = "Adolfo"
Next j
Next i
MsgBox c(1,1)
Erase c
MsgBox c(1,1)
End Sub

o


'En este caso se pone la variable c a su estado inicial
'Borrandose los valos, las dimensiones y recuperandose
'la memoria usada.
Sub test1()
Dim c As Variant
c = ActiveSheet.Range("A1:J20").Value
MsgBox c(1, 1)
Erase c
'Esto dara error ya que no hay ninguna matriz
MsgBox c(1, 1)
End Sub


Saludos,
KL

"Adolfo Aparicio" wrote in
message news:

Hola Grupo.

Tengo una matriz c(20,10) que trabajo con ella en una macro. En
determinado
momento necesito inicializarla, esto es, poner todos sus valores a cero
nuevamente. Se podría hacer así:

for i=1 to 20
for j=1 to 10
c(i,j)=0
next j
next i

pero seguro que existe alguna otr forma más rápida y elegante.

Gracias.

Adolfo Aparicio