Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » minihardik
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Объединение каждых последующих 5 строк
 
#
14.10.2019 16:35:01
Доброго времени суток!

Подскажите, пожалуйста, можно ли модернизировать данный код (см. ниже), что бы в столбце L не при выделенном диапазоне объединялись ячейки, а каждые последующие 5.
Например  L4 L5 L6 L7 L8 в одну, далее L9 L10 L11 L12 L13 и тд.
Код
Код:
Sub Mergeto0neCell()
 Const sDELIM as String = vbNewLine
 Dim rCell As Range
 Dim sMergeStr As String
 If typeName(selection) <> "Range" Then Exit Sub
 With selection
   For Each rCell. in Cells
     sMergeStr = sMergeStr & sDELIM & rCell.Text
   Next rCell
   Application.DisplayAlerts = False
   .Merge Across:=False
   Application.DisplayAlerts = True
  .item(1).Value = mid(sMergeStr, 1 + Len(sDELIM))
End With
End Sub

Буду очень признателен за помощь!
   
Изменено: minihardik - 14.10.2019 16:35:59
 
Перейти    
Объединение ячеек по вертикали с сохранением текста
 
#
29.08.2019 09:30:57
Заменил " " на vbNewline.

Но появился еще один вопрос, можно ли сделать так, что бы:
1) Привет
2) Формучане
3) ПланетыЕксель

Очень буду признателен за помощь чайнику)
 
Перейти    
Объединение ячеек по вертикали с сохранением текста
 
#
29.08.2019 08:57:22
Подскажите, пожалуйста, на какой символ необходимо заменить в макросе Const sDelim as String = " ", что бы он текст объединял не через пробел, а с новой строки.

Заранее благодарю!
 
Перейти    
Объединение ячеек по вертикали с сохранением текста
 
#
29.08.2019 08:54:57
Цитата
Сергей написал:
все придумано до нас  ТУТ  учитесь пользоваться поиском
Сергей, данный макрос склеивает текст по горизонтали (Привет Фомурчане ПланетыЕксель).
А мне необходимо, что бы он объединил по вертикале:
Привет
Формучане
ПланетыЕксель

                                       
 
Перейти    
Объединение ячеек по вертикали с сохранением текста
 
#
28.08.2019 14:11:52
Добрый день, уважаемые!

Подскажите, пожалуйста, существует ли макрос, что бы он смог объединить  выделенные ячейки по вертикале в одну без потери данных?

Пример:
В первой ячейке "Привет"
Во второй ячейке "Форумчане"
В третей ячейке "ПланетаЕксель"

Необходимо, что бы было в одной в таком виде :
Привет
Форумчане
ПланетыЕксель.

буду очень признателен в решение моей проблемы.
Заранее всем неравнодушным спасибо за помощь!
                   


 
 
Перейти    
Перенос файла с заменой, после закрытия.
 
#
23.04.2019 14:48:01
Добрый день!

Подскажите, пожалуйста, как можно сделать с помощью макроса, что бы после закрытия Excel файла, он данный файл копировал в другую папку с заменой.

Заранее спасибо!
 
Перейти    
[ Закрыто] help чайнику, Помощь в макросе отправки письма с тексом из Word
 
#
28.02.2019 11:33:07
Добрый день, опытные юзеры макросов.
Вопрос у меня в следующем.
Есть текс  со ставками в виде картинок. Необходимо данный текс через макрос отправлять нескольким получателем.
Существует ли подобный макрос, c помощью которого данный текс который находится в Word копировал в тело письма и отправлял отдельно каждому адресату?

Заранее спасибо!

P.S так же подскажите, пожалуйста, где вообще можно почитать дополнительную литературу по макросам для чайников. Что бы я стал таким же опытным как пользователи данного форума.
Изменено: minih4rdik - 28.02.2019 11:33:49
 
Перейти    
Страницы: 1
Наверх