VBA – Borrar Matriz – Función Erase

Este tutorial le enseñará cómo borrar un Array en VBA.

Borrar un Array completo

Para borrar un array completo, puedes utilizar la sentencia Erase:

Erase arrExample

En la práctica:

Sub Borrar_Array()
    'crear un array estático
    Dim arrExample(1 To 3) As String
 
    'Definir los valores del array
    arrExample(1) = "Shelly"
    arrExample(2) = "Steve"
    arrExample(3) = "Neema"
 
    'Borrar toda la matriz
    Erase arrExample

    'Comprueba el valor de la matriz
    MsgBox arrExample(1)
End Sub

Redimensionar y Borrar un Array

Si tu array es dinámico (un array dinámico es un array que puede ser redimensionado, a diferencia de un array estático que no puede ser redimensionado), puedes usar el comando Comando ReDim para redimensionar el array, borrando todo el array de valores.

'Borrar todo el array
ReDim arrExample(1 to 4)

Ejemplo completo:

Sub Borrar_Array_ReDim()
    'crear una matriz dinámica
    Dim arrExample() As String
    'ReDim arrExample(1 to 3)
 
    'Define los valores de la matriz
    arrExample(1) = "Shelly"
    arrExample(2) = "Steve"
    arrExample(3) = "Neema"
 
    'Borrar toda la matriz
    ReDim arrExample(1 To 4)
    
    'Comprueba el valor de la matriz
    MsgBox arrExample(1)
End Sub

Borrar Parte de un Array

Como se mencionó anteriormente, el comando ReDim redimensionará un array, borrando todos los valores del mismo. En su lugar, puede utilizar ReDim Preserve para redimensionar el array, conservando los valores existentes. En la práctica, esto se puede utilizar para borrar rápidamente parte de un array.

'Borrar Posición 3+
ReDim Preserve arrExample(1 To 2)

Ejemplo completo:

Sub Borrar_Array_3()
    'Crear Array Dinámico
    Dim arrExample() As String
    ReDim arrExample(1 To 3)
 
    'Define los valores de la matriz
    arrExample(1) = "Shelly"
    arrExample(2) = "Steve"
    arrExample(3) = "Neema"
 
    'Borrar Posición 3+
    ReDim Preserve arrExample(1 To 2)
    
    'Redimensionar a 3 Posiciones
    ReDim Preserve arrExample(1 To 3)
    
    'Comprueba el valor de la matriz
    MsgBox arrExample(3)
End Sub

Bucle a través de toda la matriz – Restableciendo los valores

En lugar de borrar los valores del array usando Erase o ReDim, puede hacer un bucle a través de todo el array, reseteando cada valor.