VBA. Удаление неопределенного количества столбцов

Пользователь

Сообщений: 104 Регистрация: 01.01.1970

25.09.2020 10:15:03

Уважаемые знатоки, простите, что опять беспокою.. но есть задача, которую не могу решить..
есть большая таблица.. нужно удалить столбцы, но количество столбцов все время меняется.. фиксированы только A:O.
Нужно удалить все колоки начиная с P до 1й желтой колонки (Overall result, с таким название колонок в таблице 2, одна в середине, другая в конце)
Вв примере под удаление колонки P:BB, но может быть и P:BA и P:AA...
А также последнюю колонку (которая тоже свой диапозон меняет в зависимости от кол-ва столбцов) поставить на место Q
Т.е. обе колонки Overall result должны быть рядом, но сначала должны быть литры, а следом рубли.

Я крутила/вертела.. пыталась протянуть название в 1й строке и по названию уже удалить.. но при использовании Ctrl-> ексель "залезает" на следующее название, которое удалять не нужно и заменять тоже..

конечно можно сделать это вручную, но этот шаг находится в середине полного кода макроса, т.е. это малая часть..

Прикрепленные файлы

Example.xlsx (14.18 КБ)

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

25.09.2020 10:16:51

Мария -, ~~правильно ли я понял нужно удалить столбцы которые имеют в строке 2 имя "Overall Result" ?~~
видимо нет нужно удалить столбцы до первого появления в строке 2 имя "Overall Result" ? а всегда со столбца Р???

Изменено: Mershik - 25.09.2020 10:19:24

Не бойтесь совершенства. Вам его не достичь.

Мария - Пользователь Сообщений: 104 Регистрация: 01.01.1970	#3 25.09.2020 10:22:11 Mershik, да, все верно. Нужно удалить все столбцы начиная с P до 1го появления Overall result (строка 2) и перенести колонку с 2м Overall result на место Q

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

25.09.2020 10:26:40

Цитата
Мария - написал: Нужно удалить все столбцы начиная с P до 1го появления Overall result (строка 2)

ВЫШЕ МОЖНО ВЗЯТЬ КАК НАЗВАНИЕ ТЕМЫ

Код
Sub del_col() Dim cell As Range Set cell = Rows(2).Find("Overall Result") Range(Cells(, 16), Cells(, cell.Column - 1)).EntireColumn.Delete End Sub

а это чет не понял

Цитата
и перенести колонку с 2м Overall result на место Q

но наверное так...

Код

Sub del_col()
Dim cell As Range, lcol As Long
x = 2 ' номер строки где ищем Overall Result
Set cell = Rows(x).Find("Overall Result")
Range(Cells(, 16), Cells(, cell.Column - 1)).EntireColumn.Delete
lcol = Cells(x, Columns.Count).End(xlToLeft).Column
Columns(lcol).Cut Destination:=Columns(17)
End Sub

Изменено: Mershik - 25.09.2020 10:51:24

Не бойтесь совершенства. Вам его не достичь.

Мария - Пользователь Сообщений: 104 Регистрация: 01.01.1970	#5 25.09.2020 10:49:50 Mershik, Ура!!!!!!!!! Вы ГЕНИЙ!!!!!! Спасибоо вам ОГРОМНОЕ!!! Все работает!