Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Очистить содержимое ячеек, кроме выделенных
 
Привет всем!.
Можно ли удалить все ячейки, кроме выделенных
 
Удалить или очистить содержимое?
Если удалить, то куда сдвигать?
 
Очистить содержимое.
 
Надо задать диапазон, в котором необходимо очистить содержимое ячеек,
например A1:K1000, внутри этого диапазона выделенные ячейки.

Код
Option Explicit
Sub Ochistka()
Dim cell As Range
For Each cell In Range("A1:K1000")
    If Intersect(cell, Selection) Is Nothing Then
        cell.ClearContents
    End If
Next
End Sub
Изменено: Kuzmich - 1 Фев 2013 23:38:36
 
Цитата
танбраун пишет:
все ячейки, кроме выделенных
Допустим, Вы выделили 1 000 ячеек. Представляете - СКОЛЬКО ячеек осталось невыделенных? И их все очищать?
 
Рабочая область составляет примерно 150 ячеек по горизонтале и 400 ячеек по вертикале, в этой области выделяется фрагмент (он каждый раз разный, но всегда начинается с ячейки А1), его оставляем, а остальные ячейки (они получаются в правой и нижней части выделенного фрагмента) очистить.
 
"Обратить выделение" - выделить все ячейки, кроме выделенных
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Большое спасибо The_Prist, задача решается практически на 100%.
Страницы: 1
Читают тему (гостей: 1)