В комментариях к прошлому уроку (да, теперь у нас есть комментарии!) наш читатель Дмитрий верно подметил, что показанные приемы не срабатывают в некоторых случаях при наличии объединенных ячеек. Как чаще всего и бывает, объединенные ячейки плодят различные проблемы.

Хорошая новость в том, что проблемы эти вполне решаемые. Если мы очищаем именованный диапазон вручную и видим сообщение Excel об ошибке, то достаточно нажать ОК, а затем повторно нажать Delete. Ну а если используем макрос, то придется слегка усложнить код, чтобы он верно отрабатывал и для объединенных ячеек.

Sub ClearData()
Dim rng As Range, rngArea
Set rng = Range("Данные")
For Each rngArea In rng.Areas
If rngArea.MergeCells Then
rngArea.MergeArea.ClearContents
Else
rngArea.ClearContents
End If
Next
End Sub

#УР1 #Обработка_таблиц