Изменить макрос

[tgm]

Добрый вечер! Помогите пожалуйста..Есть кусочек кода который очищает данные в столбце 3(C)..

For n = 2 To Sheets.Count - 1 'Очищаем циклом все списки на листах (кроме)

With Sheets(n)
LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
Range(.Cells(5, 3), .Cells(LastRow + 1, 3)).ClearContents
End With
Next

Как его переделать,чтобы очищались столбцы 3,4,5,6.(C.D.E.F)

Спасибо.

[MrGB]

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

Добрый вечер! Помогите пожалуйста..Есть кусочек кода который очищает данные в столбце 3(C)..

For n = 2 To Sheets.Count - 1 'Очищаем циклом все списки на листах (кроме)

With Sheets(n)
LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
.Range(.Cells(5, 3), .Cells(LastRow + 1, 3)).ClearContents
End With
Next

Как его переделать,чтобы очищались столбцы 3,4,5,6.(C.D.E.F)

Спасибо.

For n = 2 To Sheets.Count - 1     
        With Sheets(n)
        LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
            Range("C1:F" & LastRow).ClearContents
        End With
    Next

вот так поидее

[tgm]

Малость не то.. Должен очищать все указанные листы кроме 1,а сейчас очищает 1 лист а остальные не трогает..

[MrGB]

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

Малость не то.. Должен очищать все указанные листы кроме 1,а сейчас очищает 1 лист а остальные не трогает..

.Range("C1:F" & LastRow).ClearContents
точку в начале забыл. По умолчанию будет 1ый лист брать

[tgm]

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