Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Очистить содержимое ячеек, кроме выделенных
 
#1
01.02.2013 10:37:21
Привет всем!.
Можно ли удалить все ячейки, кроме выделенных
 
 
 
#2
01.02.2013 10:53:41
Удалить или очистить содержимое?
Если удалить, то куда сдвигать?
 
 
 
#3
01.02.2013 11:25:01
Очистить содержимое.
 
 
 
#4
01.02.2013 23:24:10
Надо задать диапазон, в котором необходимо очистить содержимое ячеек,
например 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 - 01.02.2013 23:38:36
 
 
 
#5
01.02.2013 23:30:24
Цитата
танбраун пишет:
все ячейки, кроме выделенных
Допустим, Вы выделили 1 000 ячеек. Представляете - СКОЛЬКО ячеек осталось невыделенных? И их все очищать?
 
 
 
#6
04.02.2013 08:18:56
Рабочая область составляет примерно 150 ячеек по горизонтале и 400 ячеек по вертикале, в этой области выделяется фрагмент (он каждый раз разный, но всегда начинается с ячейки А1), его оставляем, а остальные ячейки (они получаются в правой и нижней части выделенного фрагмента) очистить.
 
 
 
#7
04.02.2013 08:48:29
"Обратить выделение" - выделить все ячейки, кроме выделенных
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#8
04.02.2013 09:45:30
Большое спасибо The_Prist, задача решается практически на 100%.
 
 
 
Страницы: 1
Наверх