ИМХО только макросом. И если у Вас этого добра 35000 строк, то в 2 колонки на лист результат никак не влезет. А еще из примера не совсем понятно, какой нужен результат. Покажите в примере на паре строк, что должно получиться.

открываем файл из первого поста  
Alt+F11, добавить модуль, вставить в него код  
 
Sub t()  
 Dim i&, j&, k&, n&, a, b, x  
 a = [a1].CurrentRegion.Value
 For i = 1 To UBound(a)  
   n = n + Len(a(i, 2)) - Len(Replace(a(i, 2), "|", "")) + 1  
 Next  
 ReDim b(1 To n, 1 To UBound(a, 2)): n = 0  
 For i = 1 To UBound(a)  
   x = Split(a(i, 2), "|")  
   For j = 0 To UBound(x)  
     n = n + 1  
     For k = 1 To UBound(a, 2)  
       If k = 2 Then b(n, 2) = x(j) Else b(n, k) = a(i, k)  
     Next  
   Next  
 Next  
 Sheets(2).[a1].Resize(UBound(b), UBound(b, 2)).Value = b
End Sub  
 
вернуться в Excel, активировать Лист1, Alt+F8, выбрать макрос t, нажать "выполнить"  
результат - на втором листе.

Я прошу прощения, не совсем поняла, что не так. То, что на нескольких форумах написала? Так не знала, что одни и те же люди везде... И в правилах не видела "пишите только на одном форуме". Так что извините, кого обидела, честно, не хотела.

{quote}{login=SDan}{date=09.12.2012 08:17}{thema=}{post}Я прошу прощения, не совсем поняла, что не так. То, что на нескольких форумах написала? {/post}{/quote}Никто не запрещает спрашивать на нескольких форумах. Просто Вам следовало бы указать на них ссылки на те форумы, где Вы ЕЩЁ разместили свой вопрос: глянет человек по этой ссылке - увидит, что решение уже есть - и не будет впустую делать ту же самую работу.

Благодарю, дальше буду так делать.