Sub jjj() Cells.Replace What:=ChrW(8381), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub
[/vba]
[vba]
Код
Sub jjj() Cells.Replace What:=ChrW(8381), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub
Sub SEVERNAYA_DOLINA() Dim r As Range Dim rgn As Range Set rgn = Application.ActiveSheet.UsedRange For Each r In rgn.Cells If (r.Cells.Interior.ColorIndex <> 6) And (r.Cells.Interior.ColorIndex <> -4142) Then r.Cells.ClearContents End If Next End Sub
как его заставить работать по всей книге а не только по активной sheet? [moder]Вопрос к данной теме не относится. И код следует оформлять тегами (кнопка #). Читайте Правила форума[/moder]
и вдогонку еще один вопрос,есть вот такой код
Sub SEVERNAYA_DOLINA() Dim r As Range Dim rgn As Range Set rgn = Application.ActiveSheet.UsedRange For Each r In rgn.Cells If (r.Cells.Interior.ColorIndex <> 6) And (r.Cells.Interior.ColorIndex <> -4142) Then r.Cells.ClearContents End If Next End Sub
как его заставить работать по всей книге а не только по активной sheet? [moder]Вопрос к данной теме не относится. И код следует оформлять тегами (кнопка #). Читайте Правила форума[/moder]lamak58
Сообщение отредактировал Pelena - Вторник, 14.06.2016, 16:19
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
