Вы долго и мучительно работаете в microsoft Excel в подготовке таблицы, но в один прекрасный момент понимаете, что вам нужно объединить ячейки с текстом и, чтобы не потерять текст, штатными средствами вы это сделать не сможете, для этого нам на помощь приходит макрос
Для этого откройте редактор Visual Basic (Alt+F11), вставьте новый пустой программный модуль ( Insert - Module ) и скопируйте туда текст этой функции:
Код HTML:
Sub MergeCell()
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
Сохраните и вернитесь в Excel . Теперь выделите необходимые ячейки и запустите наш макрос ( Alt + F8 ) (название макроса: "MergeCell").
