Макрос на удаление любого столбца по условию в указанной ячейке (VBA)

Posted by obzor under Basic, VBA, Софт

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

Sub kmd()
For Each c In Range(«c2:c2»)
If c = пусто Then c.EntireColumn.Delete
Next
End Sub

IgorGO

Sub kmd()
  Dim rg As Range
  If IsEmpty([c2]) Then
    Set rg = Application.InputBox("Укажите ячейку или столбец", "Удалить столбец", Type:=8)
  If Not rg Is Nothing Then rg.Cells(1).EntireColumn.Delete
End Sub

тема на форме

Похожие статьи

• Поиск значения и вставка текста
• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel