Макрос на удаление любого столбца по условию в указанной ячейке (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

тема на форме

Последние записи

made in programmersforum 6

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

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