Как удалить все столбцы на основе значения заголовка в Excel?

Во многих случаях вам может понадобиться удалить все столбцы на основе значения заголовка в Excel. Например, вам нужно удалить все столбцы, которые содержат значение «старый» в заголовке. В этом руководстве мы покажем вам методы удаления всех столбцов на основе значения заголовка более подробно.

Удаление всех столбцов на основе значения заголовка с помощью кода VBA
Удаление всех столбцов на основе значения заголовка с помощью Kutools для Excel

Вы можете удалить все столбцы на основе значения заголовка с помощью кода VBA. Пожалуйста, действуйте следующим образом.

1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic Application.

2. В окне Microsoft Visual Basic Application нажмите Вставить > Модуль. Затем скопируйте и вставьте приведенный ниже код в окно Модуля.

Код VBA: удаление всех столбцов на основе значения заголовка

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

Примечания:

3. Нажмите клавишу F5, чтобы запустить код, и весь столбец с заголовком, равным указанному тексту, будет немедленно удален.

С помощью утилиты Выбрать определенные ячейки из Kutools для Excel вы можете легко сначала выбрать все столбцы, содержащие определенное значение заголовка, а затем сразу удалить эти выбранные столбцы. Пожалуйста, действуйте следующим образом.

1. Выберите диапазон, который содержит столбцы, которые необходимо удалить, а затем нажмите Kutools > Выбрать > Выбрать определенные ячейки. См. скриншот:

2. В диалоговом окне Выбрать определенные ячейки выберите параметр Весь столбец в разделе Тип выбора, а в раскрывающемся списке Указать тип выберите параметр Равно, затем введите значение заголовка в следующее поле. И, наконец, нажмите кнопку ОК. См. скриншот:

3. Нажмите кнопку ОК в другом всплывающем диалоговом окне, затем столбцы, содержащие указанное значение заголовка, будут немедленно выбраны.

4. Щелкните правой кнопкой мыши заголовок выбранного столбца, а затем нажмите Удалить в контекстном меню. После этого все выбранные столбцы будут удалены сразу.