Старый 28.03.2015, 20:25   #1
Игорь
Администратор
 
Аватар для Игорь
 
Регистрация: 21.11.2014
Сообщений: 1,871
Сказал(а) спасибо: 109
Поблагодарили 21 раз(а) в 17 сообщениях
Репутация: 35
По умолчанию Объединение ячеек без потери текста

Вы долго и мучительно работаете в 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").
Игорь вне форума   Ответить с цитированием Вверх
Пользователь сказал cпасибо:
Eternity (28.03.2015)
Ответ

Метки
объединение , ячейки

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы можете создавать новые темы
Вы можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.



Текущее время: 13:22. Часовой пояс GMT +3.

 
 
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
Рейтинг@Mail.ru