Подскажите, пожалуйста, можно ли модернизировать данный код (см. ниже), что бы в столбце 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
Добрый день, опытные юзеры макросов. Вопрос у меня в следующем. Есть текс со ставками в виде картинок. Необходимо данный текс через макрос отправлять нескольким получателем. Существует ли подобный макрос, c помощью которого данный текс который находится в Word копировал в тело письма и отправлял отдельно каждому адресату?
Заранее спасибо!
P.S так же подскажите, пожалуйста, где вообще можно почитать дополнительную литературу по макросам для чайников. Что бы я стал таким же опытным как пользователи данного форума.