Всем добрый день.

Есть то, что "дано" и то, что "найти". Вложением.
Руками конечно все решаемо. Ячейки разбить, замена (Ctrl+H) и т.д.
Но это же совершенно не спортивно.

Мои попытки автоматизации натыкаются на неудачу. Сжпробелы не работает.

Такая VBA-конструкция
Код     ActiveSheet.UsedRange.Select     With Selection         .Replace What:="" & Chr(10) & "", Replacement:=" "         .Value = Application.Trim(.Value)     End With

тоже не помогает.

В чем загвоздка? Что за хрень чепуха между словами и как ее вычистить автоматом ?