¿Cómo eliminar columnas completas según el valor del encabezado en Excel?

En muchos casos, es posible que necesite eliminar columnas completas basándose en el valor del encabezado en Excel. Por ejemplo, puede que necesite eliminar todas las columnas que contienen el valor “antiguo” en el encabezado. En este tutorial, le mostraremos métodos para eliminar columnas completas basadas en el valor del encabezado con detalle.

Eliminar columnas completas basadas en el valor del encabezado con código VBA
Eliminar columnas completas basadas en el valor del encabezado con Kutools para Excel

Puede eliminar columnas completas basadas en el valor del encabezado con código VBA. Por favor, siga los siguientes pasos.

1. Presione simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic Application.

2. En la ventana de Microsoft Visual Basic Application, haga clic en Insertar > Módulo. Luego copie y pegue el siguiente código en la ventana del Módulo.

Código VBA: eliminar columnas completas basadas en el valor del encabezado

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

Notas:

3. Presione la tecla F5 para ejecutar el código, la columna completa cuyo encabezado sea igual al texto especificado se eliminará inmediatamente.

Con la utilidad Seleccionar Celdas Específicas de Kutools para Excel, puede seleccionar fácilmente todas las columnas que contienen un determinado valor de encabezado primero, y luego eliminar estas columnas seleccionadas de una vez. Por favor, siga los siguientes pasos.

1. Seleccione el rango que contiene las columnas que necesita eliminar, y luego haga clic en Kutools > Seleccionar > Seleccionar Celdas Específicas. Ver captura de pantalla:

2. En el cuadro de diálogo Seleccionar Celdas Específicas, seleccione la opción Columna completa en la sección Tipo de selección, y en la lista desplegable Tipo específico, seleccione la opción Igual, luego escriba el valor del encabezado en el siguiente cuadro. Finalmente, haga clic en el botón Aceptar. Ver captura de pantalla:

3. Haga clic en el botón Aceptar en otro cuadro de diálogo emergente, luego las columnas que contienen el valor de encabezado especificado se seleccionan inmediatamente.

4. Haga clic derecho en el encabezado de la columna seleccionada, y luego haga clic en Eliminar en el menú contextual. Luego, todas las columnas seleccionadas se eliminan de una vez.