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

[izrukvruki]

Помогите пожалуйста решить такую задачу:

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

 

[_MBK_]

Не совсем то но запредельно близко

Delete red text inside cell using VBA

Hello, I am wondering if it is possible to delete red text inside a cell using VBA. Please note that the cell can contain red text and text with other color. So for example if the cell has "John, Joe". Only "John," is deleted from the cell. Thanks in advance.

www.mrexcel.com

 

[Gad]

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]

Вопрос конечно тупой, но куда этот код вставить, чтоб он был доступен для всех книг?
В ворде вроде Normal.dot есть...
Никогда с экселем не имел дело

 

[Gad]

 

[splxgf]

Личная книга макросов в Excel и как ее использовать

Работа с личной книгой макросов и краткий обзор ее преимуществ. Где находиться личная книга макросов и как записывать в нее свои макросы?

exceltable.com