Очистка именнованного диапазона с надписями

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка именнованного диапазона с надписями (Макросы/Sub)

DmitriyL

Дата: Воскресенье, 06.01.2019, 13:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2002

Здравствуйте, ув. профессионалы!

Задача: при помощи vba скопировать один именованный диапазон с содержащимися в нем надписями в другой. Причем сделать это таким образом, чтобы копирование происходило с замещением надписей, а не с их наложением одна на другую. Предварительная очистка второго диапазона методами Clear/ClearContents перед копированием ничего не дает (очищается все кроме надписей). Сам пример см. в прикрепленном файле

Или вообще скажите можно ли такое сделать? Может я от excel'я слишком многое хочу?!

К сообщению приложен файл: Test.xls (31.0 Kb)

Ответить

RAN

Дата: Воскресенье, 06.01.2019, 14:52 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub мяу()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If Not Intersect(Range("Диапазон_2"), shp.TopLeftCell) Is Nothing Then shp.Delete
    Next
    Range("Диапазон_1").Copy Range("Диапазон_2")
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

DmitriyL

Дата: Воскресенье, 06.01.2019, 16:41 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2002

RAN, Спасибо! То, что надо

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка именнованного диапазона с надписями (Макросы/Sub)

Страница 1 из 1
1