Удалить пустую строку между строками в ячейке

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Удалить пустую строку между строками в ячейке (Макросы/Sub)

ShuteRR

Дата: Четверг, 18.06.2015, 21:38 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007

Подскажите как реализовать Удалить пустую строку между строками в ячейке именно посредством макроса.
В файле, первая строка, как сейчас, а во второй как нужно.

К сообщению приложен файл: 1_-.xls (29.0 Kb)

Северные Сады нас защитят

Ответить

SLAVICK

Дата: Четверг, 18.06.2015, 21:42 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Так:

Код

=ПОДСТАВИТЬ(R[-3]C;СИМВОЛ(10)&СИМВОЛ(10);СИМВОЛ(10))

или так:

Код

=ПОДСТАВИТЬ(R[-4]C;ПОВТОР(СИМВОЛ(10);2);СИМВОЛ(10))

К сообщению приложен файл: 1-1-.xls (29.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 18.06.2015, 21:45

Ответить

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]

Северные Сады нас защитят

Ответить

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]

Логика такая же как и у формулы <_<

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 18.06.2015, 21:50

Ответить

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]

К сообщению приложен файл: 1-.xls (34.0 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

Удалить пустую строку между строками в ячейке (Макросы/Sub)

Страница 1 из 1
1