Сделал.
Ещё ошибки возникают, если объединённая ячейка попадается ((
Код |
---|
FindText = Cells(9, i): ReplaceText = Trim$(.Cells(i)) 'менять номер строки с фигурными скобками |