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

Вы долго и мучительно работаете в 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").