Макрос "Скрытие/удаление/добавление столбца по условию"

[Kapkom]

Добрый день!

Мне необходимо настроить 3 макроса:
1. Скрытие столбцов по диапазону (например, A:Z), ячейки которых по определенной строке (например, строке "1") содержат цифру "1" (или какой-нибудь текст (например, "да")).
2. Удаление таких столбцов.
3. Добавление слева от них одного (или двух, трех и т.п.) столбцов.

Подскажите, пожалуйста, что в тексте таких макросов необходимо прописать.
Буду очень благодарен за помощь!

С уважением, Артем.

[EducatedFool]

по пунктам 1 и 2 - вы пробовали найти готовый макрос в инете?

почему-то все, кто ищет, - сразу находит...
http://excelvba.ru/code/ConditionalRowsDeleting

[Kapkom]

Сообщение от EducatedFool

по пунктам 1 и 2 - вы пробовали найти готовый макрос в инете?

почему-то все, кто ищет, - сразу находит...
http://excelvba.ru/code/ConditionalRowsDeleting

Этот макрос я видел. Там речь идет про строки, а у меня - о столбцах. Не знаю, что делаю неправильно, но подделать этот макрос под столбцы не получается.
На текущий момент я написал макрос на скрытие строк:
For Each c In Range("a1:a5000")
If c = 1 Then
c.Select
Selection.EntireRow.Hidden = True
End If
Next

В таком же виде - по удалению строк.
Но для скрытия, удаления столбцов этот макрос настроить у меня не выходит. Можете подсказать, что надо мне сделать?

[EducatedFool]

а всё аналогично для столбцов:

For Each c In Range("a1:h1")
If c = 1 Then c.EntireColumn.Hidden = True
Next

[Kapkom]

Спасибо большое!

[Kapkom]

Извините, пожалуйста!

Как все-таки мне настроить макрос по пункту 3 моего вопроса (Добавление слева от столбца в конкретном диапазоне одного (или двух, трех и т.п.) столбцов)?

[EducatedFool]

добавляем справа 2 столбца:

For Each c In Range("a1:h1")
If val(c) = 1 Then c.EntireColumn.offset(,1).resize(,2).Insert
Next

в .resize(,2) - 2 отвечает за количество вставляемых столбцов

[Kapkom]

Круто, большое спасибо! Буду использовать такой код.
А есть какая-нибудь возможность на добавление столбцов слева?

[EducatedFool]

offset(,1) - это смешение вправо на один столбец, перед вставкой
если смещение не делать - вставится перед столбцом

c.EntireColumn.offset(,0).resize(,2 ).Insert
или
c.EntireColumn.resize(,2).Insert

[Kapkom]

Здравствуйте!

Извините, пожалуйста, но возникла еще одна проблема.
Я написал макрос по вставке столбца влево:
For Each c In Range("c1:z1")
If Val(c) = 1 Then
c.EntireColumn.Offset(, 0).Resize(, 1).Insert
End If
Next
По такому макросу получаются следующие действия.
1) Находится первая 1 в диапазоне c1:z1.
2) Вставляется слева от этой 1 столбец.
3) Дальше находится опять эта 1 и опять вставляется слева от нее еще один столбец.
В результате, вставляются столбцы от этой единицы до самого упора листа, при этом другие единицы указанного диапазона по макросу даже не выявляются и слева от них, как следствие, не вставляется столбец.
Как я понимаю, чтобы решить эти проблемы нужно, чтобы после вставки столбца слева от каждой найденной 1, эту 1 макрос должен удалить.
Скажите, пожалуйста:
1. Что надо указать в макросе, чтобы удалилась эта 1?
2. Что надо прописать в макросе, чтобы указанные проблемы решались без удаления найденных 1?

Я буду очень признателен за помощь!

С уважением, Артем.