Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удалить столбец в Эксель, Удалить столбец в Эксель
 
#1
29.02.2024 16:33:00
Добрый день
помогите написать макрос по удалению столбцов в Эксель.
удалять нужно столбик с подписью "Количество клиентов".
Диапазон будет большой, но для примера оставила так.
файл приложила
 
 
 
#2
29.02.2024 17:02:04
Не мудрствуя
Код
Sub DelColumns()
Dim lClmn&
Application.ScreenUpdating = False
lClmn = Cells(2, Columns.Count).End(xlToLeft).Column
For I = lClmn To 1 Step -1
  If Cells(2, I) = "Количество клиентов" Then Columns(I).Delete
Next
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
29.02.2024 17:06:32
Добрый день.
Попробуйте таким:
Код
Sub Del_Clients_count()
    Dim ToFind$, Finded$, rngC As Range, addrC$, my_range As Range
    Set my_range = Range("a1").CurrentRegion
    ToFind = InputBox("Введите наименование столбца для удаления")
    If Not my_range.Find(ToFind) Is Nothing Then
        Set rngC = my_range.Find(ToFind)
        addrC = rngC.Address
        Finded = Mid(addrC, 2, 1) & ":" & Mid(addrC, 2, 1)
        Do
            Set rngC = my_range.FindNext(rngC)
            Finded = Finded & ", " & Mid(rngC.Address, 2, 1) & ":" & Mid(rngC.Address, 2, 1)
        Loop While rngC.Address <> addrC
        If Len(Finded) > 5 Then Finded = Left(Finded, Len(Finded) - 5)
    End If
    Range(Finded).Delete Shift:=xlToLeft
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#4
29.02.2024 18:57:49
Отлично. все работает! Спасибо
 
 
 
Страницы: 1
Наверх