Всем привет!
Пользуюсь макросом:
Подскажите плз, как его изменить, что бы после соединения текста, после запятой не было знака пробела?
Что текст в ячейке имел такой вид:
202013654,202014565,70708532,9956214
Спасибо, огромное!
Пользуюсь макросом:
Код |
---|
Sub Соединить_через_запятую() 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)) 'добавляем к объед.ячейке суммарный текст .MergeCells = True End With Selection.UnMerge End Sub |
Подскажите плз, как его изменить, что бы после соединения текста, после запятой не было знака пробела?
Что текст в ячейке имел такой вид:
202013654,202014565,70708532,9956214
Спасибо, огромное!