Символ переноса в VBA

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

Дата: Среда, 29.05.2013, 16:12 | Сообщение № 1

Группа: Гости

Помогите пожалуйста!
В интернете есть такой макрос:
[vba]

Код

Sub MergeToOneCell()
Const sDELIM As String = " " 'символ-разделитель
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

[/vba]
А как сделать чтобы место пробела в строке
Const sDELIM As String = " " 'символ-разделитель
вставлялся символ переноса строки?