Find and collate rows with repeated partial text in one column

[大灰狼1976]

Confirmed results:
1. Application.Trim() will make errors when it is over 255 characters long. But it can be implemented in other ways.
2. Characters(Start:=?, Length:=?).Font.Color when more than 255 characters long is no problem.
so I need 2.'s wrong texts.