Как удалить ненужные столбцы в огромной таблице

[AnnaZubareva]

Уважаемые форумчане!!!
Очень прошу помощи.
Если уже где-то есть ответ - извините сразу, по поиску не нашла.
Есть огромная таблица. Есть столбцы кол-во и цена по наименованию. Вот нужно столбцы с ценой и удалить.
Наименование столбца имеется - СУММА и все.

[TimSha]

"Цена" и "Сумма", однако, разница есть... А столб удалить - просто, выделяем и... удаляем. Можно CTRL+-(на цифровой) нажать.

[AnnaZubareva]

"Цена" и "Сумма", однако, разница есть... А столб удалить - просто, выделяем и... удаляем. Можно CTRL+-(на цифровой) нажать.

Так столбцов много - так и делаем, но хотелось бы упростить задачу. Выделять замучаешься.

[cheshiki1]

файл покажите и согласно файла какие столбцы нужно удалять.

[AnnaZubareva]

файл покажите и согласно файла какие столбцы нужно удалять.

Удалить необходимо столбцы с суммой.
Но это кусок таблицы только, есть еще впереди столбцы и вверху с наименованием.

[cheshiki1]

Код Выделить Развернуть

Sub udalenie()
Dim i&
Application.ScreenUpdating = False
For i = Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Cells(2, i) = "Сумма" Then Columns(i).Delete
Next
Application.ScreenUpdating = True
End Sub
проверяйте.

[zs]

Условн формат Белый,) Фон 1   =ОСТАТ(СТОЛБЕЦ(A:A)/2;1)=0

[AnnaZubareva]

Код Выделить Развернуть

Sub udalenie()
Dim i&
Application.ScreenUpdating = False
For i = Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Cells(2, i) = "Сумма" Then Columns(i).Delete
Next
Application.ScreenUpdating = True
End Sub
проверяйте.

Вы - гений!!!!
Только я не поняла как вы это сделали   
То есть по сути надо скопировать ваш макрос, и типа вставить его в таблицу рабочую и усе?

[ShAM]

Усе. И повесить на кнопку, или вызывать через Alt+F8.

[cheshiki1]

типа вставить его в таблицу рабочую и усе?

вот смотритеhttp://ru.toolson.net/GifResizer/Edit/673241

[AnnaZubareva]

Добрый день!
Уважаемые форумчане, а если столбцы необходимо не удалить, а скрыть?
То есть чтобы не выделять огромное количество столбцов с суммой как скрыть их быстро?

[cheshiki1]

заменить Columns(i).Delete на Columns(i).EntireColumn.Hidden = True

[AnnaZubareva]

заменить Columns(i).Delete на Columns(i).EntireColumn.Hidden = True

Огромное спасибо!
Можно еще вопросик - что значит повесить на кнопку? 
И еще - вот допустим таблица огромная и в длину и в ширину, вставить некуда макрос, не будешь же вставлять в конец таблицы, а потом перематывать и искать.
Куда можно вставить данный макрос, чтобы он был так сказать под рукой всегда?

[cheshiki1]

что значит повесить на кнопку?

например создаете автофигуру на листе. ПКМ (правая кнопка мыши) по автофигуре "назначить макрос".
В вашем случае лучше макрос повесить в панель быстрого доступа для 2007. на ленту для 2003.

[AnnaZubareva]

что значит повесить на кнопку?

например создаете автофигуру на листе. ПКМ (правая кнопка мыши) по автофигуре "назначить макрос".
В вашем случае лучше макрос повесить в панель быстрого доступа для 2007. на ленту для 2003.

Простите меня темную.
У меня 2010.
Прикрепила файл, необходимо скрывать столбцы с 2012 годом. И как повесить в панель быстрого доступа я не знаю.