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

Автор AnnaZubareva, 01.11.2013, 12:42

« назад - далее »

cheshiki1

Цитироватьнеобходимо скрывать столбцы с 2012 годом
Увы для такой задачи моих знаний VBA маловато. причина объединенные ячейки.

Poltava

Да объединенные ячейки это зло. Но в данном случае мы знаем что их по две подряд потому это не столь существенно и может решаться таким образом
Sub udalenie()
    Dim i&
    Application.ScreenUpdating = False
    For i = Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If InStr(Cells(2, i), "2012") Then
            Columns(i).EntireColumn.Hidden = True
            Columns(i + 1).EntireColumn.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

По поводу того как этим пользоваться то рекомендую почитать тут http://www.planetaexcel.ru/techniques/3/59/
Хотя я не вижу смысла в таком макросе у вас все сгруппировано и можно обойтись нажатием всего двух кнопок (смотрите картинку)
Не пытайтесь спорить с дебилом. Иначе вы опуститесь до его уровня. Где он задавит вас своим опытом.

sergo44441

давайте так, с кнопочкой
Не торопись, и все успеешь намного быстрее

kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

AnnaZubareva


AnnaZubareva

Цитата: KuklP от 18.11.2013, 23:57
Тезка, Анна получила еще одно решение в теме:
https://forum.msexcel.ru/index.php/topic,9600.msg49494.html#new
Спасибо, можно было конечно все в одной теме описать.