Объединение ячеек без потери текста

[Игорь]

Вы долго и мучительно работаете в microsoft Excel в подготовке таблицы, но в один прекрасный момент понимаете, что вам нужно объединить ячейки с текстом и, чтобы не потерять текст, штатными средствами вы это сделать не сможете, для этого нам на помощь приходит макрос

Для этого откройте редактор Visual Basic (Alt+F11), вставьте новый пустой программный модуль ( Insert - Module ) и скопируйте туда текст этой функции:

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").