Borrar columnas en blanco

Borrar columnas en blanco

Eliminar columnas en blanco en Excel puede ser sencillo si se trata de algunas pocas. Sin embargo, en algunos casos cuando se tienen muchas columnas por eliminar, una mejor idea es emplear las macros.

La macro a crear requiere de ciertas variables y propiedades. La propiedad principal es UsedRange , la cual hace referencia a un rango ya establecido sobre el cual se realizará la operación en la hoja activa. Las variables requeridas son : el rango a trabajar y el contador de columnas examinadas. Los pasos a seguir para la creación de la macro es la siguiente:

1. Declarar las variables rango como Range y contador como Long.

2. Definir el rango donde se identifique las columnas en blanco.

3. Establecer la longitud del contador para el análisis en el rango seleccionado.

4. Establecer una función donde se identifique la columna que no posea valor alguno y lo elimine, de lo contrario no habrá efecto alguno.

5. Crear un bucle donde el contador analice todas las columnas del rango seleccionado.

 

Ejemplo:

En un colegio donde se tiene 10 aulas, se registra a los alumnos participantes de un evento por turnos ( 5 turnos establecidos). se desea eliminar el turno donde no acudieron los alumnos.

(Para mayor visualización de la imagen, hacer click en la misma)

1. Se selecciona el rango donde se encuentra registrado a los alumnos y se le puede llamar por un nombre. En este caso, se llama PARTICIPANTES.

(Para mayor visualización de la imagen, hacer click en la misma)

2.Se abre VisualBasic para crear la macro correspondiente . A continuación se muestra el código aplicado.

Sub BORRAR_COLUMNA()
Dim participantes As Range
Dim CONTADOR As Long
Set participantes = ActiveSheet.UsedRange
For CONTADOR = participantes.Columns.Count To 1 Step -1
If Application.CountA(Columns(CONTADOR).EntireColumn) = 0 Then
Columns(CONTADOR).Delete
End If
Next CONTADOR
End Sub

3.Finalmente, se ejecuta la macro y se observará que la columna que no contiene nombre de los alumnos fue eliminada.

(Para mayor visualización de la imagen, hacer click en la misma)

 

Por: Andrea Sánchez Gutierrez