Версия VBA только потому, что вы также пометили его как VBA:
Range("B1").Formula = Join(Split(Application.transpose(Range("A1").Text),vblf),"|")
Примечание. Вы сказали «запятые» в своем вопросе, но в вашем примере был показан канал, поэтому мы оба использовали канал