Добрый день!
Может есть у кого в запасниках готовый макрос под мою задачу?
Что требуется - выделяется две или более ячейки с числовыми значениями, надо получить их сумму и вставить в верхнюю ячейку выделенного диапазона, либо объединить и вставить.
Подобный макрос для текста у меня есть и он прекрасно работает. Но с числами так обращаться нехорошо. Когда они становятся текстом, то теряют свою суть.
Имеющимся макросом могу поделиться:
Может есть у кого в запасниках готовый макрос под мою задачу?
Что требуется - выделяется две или более ячейки с числовыми значениями, надо получить их сумму и вставить в верхнюю ячейку выделенного диапазона, либо объединить и вставить.
Подобный макрос для текста у меня есть и он прекрасно работает. Но с числами так обращаться нехорошо. Когда они становятся текстом, то теряют свою суть.
Имеющимся макросом могу поделиться:
| Код |
|---|
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 'объединяем ячейки '.Merge Across:=True ' или НЕ объединяем Application.DisplayAlerts = True .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM)) 'добавляем суммарный текст End With End Sub |
Изменено: - 05.07.2019 14:16:24
