Макрос: удаление строчек

izrukvruki

Топикстартер
12 лет на форуме
Сообщения
1 464
Реакции
222
Помогите пожалуйста решить такую задачу:

Есть табличка в Экселе, часть строчек черная, часть цветные (красные чаще)
Нужно, удалить строки с цветным текстом. (можно так: идем по столбцу А, если строка 1 не черная - удаляем...)
Слева что было, справа что осталось
1626791665037.png
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
30 532
Реакции
10 035
Не совсем то но запредельно близко
 
  • Спасибо
Реакции: izrukvruki

Gad

Сообщения
2 443
Реакции
1 123
Код:
Sub removeNoBlackText()
   i = ActiveSheet.UsedRange.Rows.Count
   For c = i To 1 Step -1
        If Cells(c, 1).Font.Color <> Black Then Rows(c).Delete
    Next
End Sub
 
  • Спасибо
Реакции: izrukvruki

izrukvruki

Топикстартер
12 лет на форуме
Сообщения
1 464
Реакции
222
Вопрос конечно тупой, но куда этот код вставить, чтоб он был доступен для всех книг?
В ворде вроде Normal.dot есть...
Никогда с экселем не имел дело
 

splxgf

10 лет на форуме
Сообщения
7 294
Реакции
3 236
  • Спасибо
Реакции: izrukvruki