Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как добавить пустые строки между имеющимися?
 
#1
14.04.2011 08:20:30
Вопрос в том, что значения из сформированного в экселе столбца будут использоваться в текстовом формате в другой программе. В той программе нужно чтобы значения были разделены пустой строкой.. Т.е. вручную вставлять пустые строки в экселе - не вариант :), пока делаю это в Notepad++ добавляя пустую строку, что тоже не айс..    
Самое простое решение было бы вставить в конец содержимого каждой ячейки символ, который бы добавлял пустую строку.. вот какой только?
 
 
 
#2
14.04.2011 08:57:23
crlf
Я сам - дурнее всякого примера! ...
 
 
 
#3
14.04.2011 09:40:03
мм.. что то не работает метод или я не понял как это правильно вставить - если можно - поподробнее..
 
 
 
#4
14.04.2011 10:53:01
Поскольку Вашего примера нет:  
Public Sub www()  
   Dim c As Range  
   For Each c In Selection.Cells  
       c = c & vbLf ' или vbCrLf    
   Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#5
14.04.2011 11:09:55
Пример, как таковой и не нужен по моему - суть в том что есть столбец заполненный значениями и нужно что бы при копировании его в Notepad++, например, между значениями была пустая строка.. С макросами не очень пока.. нет ли варианта чтобы без них обойтись? Спасибо!
 
 
 
#6
14.04.2011 11:20:59
Копируйте в ворд как неформатированный текст и заменяйте знак абзаца на разрыв строки и знак абзаца.
Я сам - дурнее всякого примера! ...
 
 
 
#7
14.04.2011 11:32:52
Каким образом данные переносятся из Excel в другую программу - через сохранение в txt или копированием - вставкой?  
Перевод строки в ячейке вводится с помощью Alt+Enter. Но и при сохранении в txt, и при копировании Excel добавляет кавычки к содержимому таких ячеек. Вот результат копирования-вставки:  
 
без перевода строки в ячейке  
1  
2  
4  
с переводом строки в ячейке  
"1  
"  
"2  
"  
"4  
"  
конец текста  
 
А вставлять пустые строки в Excel довольно просто, смотрите  
http://www.planetaexcel.ru/forum.php?thread_id=19602  
http://www.planetaexcel.ru/forum.php?thread_id=20644
 
 
 
#8
14.04.2011 12:36:20
Спасибо!    
Помогла формула    
=ЕСЛИ(ОСТАТ(СТРОКА();2);"";ИНДЕКС(A:A;СТРОКА()/2))  
из примера: http://www.planetaexcel.ru/forum.php?thread_id=19602  
и работает вариант с вордом :)
 
 
 
#9
24.11.2011 11:14:46
Нашла на форуме несколько способов для вставки одной строки, а если надо вставить 30 срок между заполненными? Формулой не очень удобно..вот этот макрос при выполнении несколько раз некорректно срабатывает..    
Sub InsertRows()  
Dim i As Long  
For i = 2 To 200 Step 2  
Cells(i, 3).EntireRow.Insert  
Next i  
End Sub  
Помогите пожалуйста!
 
 
 
Страницы: 1
Читают тему
Наверх