{quote}{login=Oleeg}{date=13.09.2009 06:58}{thema=Убрать пустые строки в ячейке...}{post}Есть столбец в нем много ячеек с текстом в котором встречаются пустые строки, как их автоматически можно убрать?    
 
П-р:  
___________________  
Y-T2|Abcdifg dsfgf  
\\\\|пустая строка      
\\\\| dfgfdhgdhsdg  
\\\\|dgfd пустая строка  
\\\\| fgfffffffffg  
P.S. Сделать сплошной текст в одну строку.  
-------------------{/post}{/quote}

Хм. в  одну строку? Как плохо, что вы ленитесь открыть Excel и сделать небольшой пример в файле, а затем его выложить на форум.    
 
А что если, заполненных ячеек в столбце 20000, а мы сейчас их развернём и в одну строку - вы думаете они поместятся в строке?    
 
Может всё-таки пример выложите?

{quote}{login=Pavel55}{date=13.09.2009 07:17}{thema=}{post}В одну строку ... так подойдёт?    
 
=ПЕЧСИМВ(A1)  
 
)){/post}{/quote}  
 
Оу, пустые строки в самой ячейке (в одной), сейчас выложу пример...

{quote}{login=Pavel55}{date=13.09.2009 07:39}{thema=}{post}Эх, Олег, Олег... вас пока дождёшься всё воскресенье пройдёт )  
 
Попробуйте так  
 
Sub Макрос1()  
Dim rCell As Range  
   For Each rCell In Range("A1:A10")  
       rCell = Replace(rCell, Chr(10), " ")  
   Next rCell  
   MsgBox "The end!", , ""  
End Sub{/post}{/quote}  
 
Вроде все получилось, сейчас окончательно проверю, спасибо за ожидание.