Нужна помощь в переделке макроса:
| Код: |
слияние ячеек без удаления текста
Sub MergeToOneCell()
Const sDELIM As String = " "
Dim rCell As Range
Dim sMergeStr As String
If TypeName(Selection) "Range" Then Exit Sub
If Not Status Then Exit Sub
Call SaveUndoInfo(Selection)
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
Application.OnUndo "Отменить объединение ячеек", "UndoMergeToOneCell"
End Sub
|
этот код позволяет обьединить ячейки ексель оставляя в обьединенной весь текст. Нужно что бы добавлял запятые, тоесть текст первой ячейки + запятая + текст второй ячейки и тд.
___________________________________-
Если надо я всю надстройку выложу, PLEX называется, пароль на бейсик уже обошел.
