Быстрое удаление содержимого ячеек

[gadspider]

Допустим мне надо очистить содержимое ячеек ниже i-строки и правее j-столбца. Есть ли фнукция подобная в Excel VBA? Это все можно сделать циклом, но на него от большого оьъема данных уходит много времени. Без цикла можно как нибудь?

[EducatedFool]

Sub test()
    i = 5: j = 8
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    Rows(i + 1 & ":" & Rows.Count).ClearContents    ' очистка строк
    Range(Cells(j + 1), Cells(Columns.Count)).EntireColumn.ClearContents    ' очистка столбцов
End Sub

Для полной очистки (вместе с форматированием) замените ClearContents на Clear

[The_Prist]

Или сразу весь диапазон

Sub test()
    i = 5: j = 8
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    Range(Cells(i + 1, j + 1), Cells(Rows.Count, Columns.Count)).ClearContents 
    Application.ScreenUpdating = True  
End Sub

[EducatedFool]

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

Или сразу весь диапазон
Range(Cells(i + 1, j + 1), Cells(Rows.Count, Columns.Count)).ClearContents

Да не весь требуемый диапазон очищается...

[The_Prist]

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

Да не весь требуемый диапазон очищается...

Почему же, Игорь?
Как и просили ниже указанной строки и правее указанного столбца. Так и получается:
ниже строки 5 и правее столбца 8 все очищается.

[The_Prist]

Я чет не правильно может понял? Надо полностьюю все, что ниже и правее очищать? Тогда так

Sub test()
Dim i As Long, j As Long
    i = 5: j = 8
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    Union(Range(Cells(i + 1, 1), Cells(Rows.Count, Columns.Count)), Range(Cells(1, j + 1), Cells(Rows.Count, Columns.Count))).ClearContents
    Application.ScreenUpdating = True
End Sub

[EducatedFool]

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

Как и просили ниже указанной строки и правее указанного столбца. Так и получается:
ниже строки 5 и правее столбца 8 все очищается.

С точки зрения логики именно так и надо было сделать.
Но мне почему-то показалось, что на самом деле требуется сначала очистить всё, что ниже указанной строки, а потом очистить всё, что правее указанного столбца.

Привык уже, что задания формулируются недостаточно чётко

[gadspider]

Нет очистить надо было все сразу. Все заработало спасибо!

[gadspider]

а можно еще тогда по теме вопрос. Как защитить содержимое ячеек в определенной области от изменения пользователем в лист Excel, т.е. чтобы содержимое могло меняться только программно?

[pivas]

Формат->Ячейки->Защита, там всё написано.