Добрый день.
Попробуйте таким:
Попробуйте таким:
Код |
---|
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 |
Кому решение нужно - тот пример и рисует.