Удаление ячеек

[Светлана87]

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

[VictorM]

Если диапазон одинаковый - выделите ВСЕ нужные листы и удаляйте.

[SAS888]

Выделить требуемые листы, затем, на одном из них произвести нужную операцию. Например, выделить диапазон и удалить ячейки со сдвигом вверх. Эта операция будет осуществлена во всех выделенных листах.

[VictorM]

Опоздал с "кином"))
SAS888 уже все подробно расписал.
Но всеже...

[Светлана87]

Извините, не так выразилась - как программно удалить диапазон ячеек сразу на нескольких выбранных листах. Понимаю, что с одного листа так: Range("B3: F3").Delete Shift:=xlToLeft , не удается привязать к нужным листам
За кино особое спасибо.

[VictorM]

как программно

А Вы включите макрорекордер перед тем, как выполнить удаление, а потом посмотрите получившийся код.
Получится что-то типа этого

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 06.09.2011 (Microsoft)
'

'
    Sheets(Array("Лист1", "Лист2", "Лист3")).Select
    Sheets("Лист1").Activate
    Range("A1:B10").Select
    Selection.ClearContents
    Range("A1").Select
    Sheets("Лист1").Select
End Sub

А уж дальше можно редактировать код.
Делать то, что Вам нужно.

[Светлана87]

Спасибо. Я попробую

[VictorM]

Range("B3: F3").Delete Shift:=xlToLeft , не удается привязать к нужным листам

Вот что записал макрорекордер

Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 06.09.2011 (Microsoft)
'

'
    Sheets(Array("Лист1", "Лист2", "Лист3")).Select
    Sheets("Лист1").Activate
    Range("B3:D3").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Sheets("Лист1").Select
End Sub

вроде все удаляет)

[Hugo121]

Без селекшенов:

Sub Макрос3()
Dim sh As Worksheet
For Each sh In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
    sh.Range("B3:D3").Delete Shift:=xlToLeft
Next
End Sub

[Светлана87]

Обалдеть как просто. Спасибо!!!! (Sorry, за эмоции)