Удалить столбец со всех листов.

[contrelesgaz]

Добрый вечер, документ excel 2010, 80 листов, по 2 столбца в каждом. Требуется удалить все столбцы А со всех листов.

Заранее спасибо.

[R Dmitry]

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

Добрый вечер, документ excel 2010, 80 листов, по 2 столбца в каждом. Требуется удалить все столбцы А со всех листов.

Заранее спасибо.

этот секретный код , только для 2010 офиса

Sub Kill_AA()
For i = 1 To Sheets.Count
  Sheets(i).Columns("A:A").Delete Shift:=xlToLeft
Next
End Sub

[contrelesgaz]

Класс. Пойду научусь пользоваться رvba))

Спасибо.

[contrelesgaz]

Ух, круто как.

[R Dmitry]

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

Класс. Пойду научусь пользоваться vba)))

Спасибо.

хорошая мысль, вот еще бы выучить азы, тоже не помешает

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

[contrelesgaz]

Нет, просто я совсем не этому учился. Даже азы прошли мимо. Я переводчик.))