Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Удалить все строки оставить Жирный шрифт
 
Добрый день. помогите переписать макрос в обратную сторону . Нужно что бы удалил все строки и оставил формат Жирный

Код
Sub DeleteBold ()
  Dim a, rng As Range, x As Range
  For Each x In ActiveSheet.UsedRange.Rows
    a = x.Font.Bold
    If IsNull(a) Or a = True Then
      If rng Is Nothing Then Set rng = x.EntireRow Else Set rng = Union(rng, x.EntireRow)
    End If
  Next
  If Not rng Is Nothing Then rng.Delete
End Sub
 
Замените
Код
If IsNull(a) Or a = True Then
  на
Код
If IsNull(a) Or a = False Then
 
msi2102 Спасибо. + 100 в карму.
Тема закрыта  
Страницы: 1
Читают тему (гостей: 1)
Наверх