Удалить пустую строку между строками в ячейке
ShuteRR
Дата: Четверг, 18.06.2015, 21:38 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
40% ±
Excel 2007
Подскажите как реализовать Удалить пустую строку между строками в ячейке именно посредством макроса. В файле, первая строка, как сейчас, а во второй как нужно.
Подскажите как реализовать Удалить пустую строку между строками в ячейке именно посредством макроса. В файле, первая строка, как сейчас, а во второй как нужно. ShuteRR
К сообщению приложен файл:
1_-.xls
(29.0 Kb)
Северные Сады нас защитят
Ответить
Сообщение Подскажите как реализовать Удалить пустую строку между строками в ячейке именно посредством макроса. В файле, первая строка, как сейчас, а во второй как нужно. Автор - ShuteRR Дата добавления - 18.06.2015 в 21:38
SLAVICK
Дата: Четверг, 18.06.2015, 21:42 |
Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
Так: Код
=ПОДСТАВИТЬ(R[-3]C;СИМВОЛ(10)&СИМВОЛ(10);СИМВОЛ(10))
или так: Код
=ПОДСТАВИТЬ(R[-4]C;ПОВТОР(СИМВОЛ(10);2);СИМВОЛ(10))
Так: Код
=ПОДСТАВИТЬ(R[-3]C;СИМВОЛ(10)&СИМВОЛ(10);СИМВОЛ(10))
или так: Код
=ПОДСТАВИТЬ(R[-4]C;ПОВТОР(СИМВОЛ(10);2);СИМВОЛ(10))
SLAVICK
К сообщению приложен файл:
1-1-.xls
(29.0 Kb)
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Четверг, 18.06.2015, 21:45
Ответить
Сообщение Так: Код
=ПОДСТАВИТЬ(R[-3]C;СИМВОЛ(10)&СИМВОЛ(10);СИМВОЛ(10))
или так: Код
=ПОДСТАВИТЬ(R[-4]C;ПОВТОР(СИМВОЛ(10);2);СИМВОЛ(10))
Автор - SLAVICK Дата добавления - 18.06.2015 в 21:42
ShuteRR
Дата: Четверг, 18.06.2015, 21:48 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
40% ±
Excel 2007
Нужен какой либо код на подобии [vba]Код
Sub Удалить_переносы() Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub
[/vba]
Нужен какой либо код на подобии [vba]Код
Sub Удалить_переносы() Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub
[/vba] ShuteRR
Северные Сады нас защитят
Ответить
Сообщение Нужен какой либо код на подобии [vba]Код
Sub Удалить_переносы() Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub
[/vba] Автор - ShuteRR Дата добавления - 18.06.2015 в 21:48
SLAVICK
Дата: Четверг, 18.06.2015, 21:49 |
Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
Вот: [vba]Код
Sub ПробелыНаПереносы() Cells.Replace What:=Chr(10) & Chr(10), Replacement:=Chr(10), LookAt:=xlPart End Sub
[/vba] Логика такая же как и у формулы
Вот: [vba]Код
Sub ПробелыНаПереносы() Cells.Replace What:=Chr(10) & Chr(10), Replacement:=Chr(10), LookAt:=xlPart End Sub
[/vba] Логика такая же как и у формулы SLAVICK
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Четверг, 18.06.2015, 21:50
Ответить
Сообщение Вот: [vba]Код
Sub ПробелыНаПереносы() Cells.Replace What:=Chr(10) & Chr(10), Replacement:=Chr(10), LookAt:=xlPart End Sub
[/vba] Логика такая же как и у формулы Автор - SLAVICK Дата добавления - 18.06.2015 в 21:49
KSV
Дата: Четверг, 18.06.2015, 22:08 |
Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
[vba]Код
' запускается кнопкой "Сжать строки", обрабатывает диапазон A5:A7 (см. вложенный файл) Sub CжатьСтроки() Dim Cell As Range For Each Cell In Лист1.Range("A5:A7") Cell = Replace$(Cell, vbLf & vbLf, vbLf) Next End Sub ' то же самое, в виде пользовательской функции Function СжатьСтроки(Cell As Range) As String СжатьСтроки = Replace$(Cell, vbLf & vbLf, vbLf) End Function
[/vba]
[vba]Код
' запускается кнопкой "Сжать строки", обрабатывает диапазон A5:A7 (см. вложенный файл) Sub CжатьСтроки() Dim Cell As Range For Each Cell In Лист1.Range("A5:A7") Cell = Replace$(Cell, vbLf & vbLf, vbLf) Next End Sub ' то же самое, в виде пользовательской функции Function СжатьСтроки(Cell As Range) As String СжатьСтроки = Replace$(Cell, vbLf & vbLf, vbLf) End Function
[/vba] KSV
К сообщению приложен файл:
1-.xls
(34.0 Kb)
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
Ответить
Сообщение [vba]Код
' запускается кнопкой "Сжать строки", обрабатывает диапазон A5:A7 (см. вложенный файл) Sub CжатьСтроки() Dim Cell As Range For Each Cell In Лист1.Range("A5:A7") Cell = Replace$(Cell, vbLf & vbLf, vbLf) Next End Sub ' то же самое, в виде пользовательской функции Function СжатьСтроки(Cell As Range) As String СжатьСтроки = Replace$(Cell, vbLf & vbLf, vbLf) End Function
[/vba] Автор - KSV Дата добавления - 18.06.2015 в 22:08