Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Logo Excel Avanzado

Borrar columnas en blanco

| 1 comentario

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.

eje1 e1416178792275 300x152 Borrar columnas en blanco

(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.

eje2 e1416178839711 300x190 Borrar columnas en blanco

(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

eje3 e1416178885278 Borrar columnas en blanco

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

eje5 e1416178934231 300x208 Borrar columnas en blanco

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

 

Por: Andrea Sánchez Gutierrez

Un comentario

  1. Hola, como puedo hacer una macro para que me borre columnas con información, es decir tengo un archivo que de 30 columnas siempre las mismas (es formato) solo ocupa 7 y las demas las tengo que borrar ya que no me sirven, quiero hacer una macro para eliminarlas rápido.

Deja una respuesta

Los campos requeridos estan marcados con *.