Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 21.08.2017, 16:54   #1
Lynx_by
 
Регистрация: 21.08.2017
Сообщений: 4
По умолчанию Макрос для объединения ячеек

Добрый день

Задача: сделать так, что то, что на картинке 1 мерджилось так, как на картинке 2, но не так, как на картинке 3.

Код:
'merge all rows
     StartRow = blueCell.Row + 2
    For rcIndex = 1 To blueCell.Column - 2
        For RowIndex = StartRow To LastFiledRow
            With Cells(RowIndex, rcIndex)
                If .Value = .Offset(-1, 0).MergeArea.Cells(1).Value Then
                    If (Not Cells(RowIndex, rcIndex).MergeCells) And (Not Cells(RowIndex, rcIndex).Offset(-1, 0).MergeCells) Then
                      Range(Cells(RowIndex, rcIndex), .Offset(-1, 0)).Merge
                    End If
                End If
            End With
        Next RowIndex
    Next rcIndex

Последний раз редактировалось Lynx_by; 21.08.2017 в 18:27.
Lynx_by вне форума Ответить с цитированием
Старый 22.08.2017, 11:17   #2
Lynx_by
 
Регистрация: 21.08.2017
Сообщений: 4
По умолчанию

Разобралась, что не работало. Тема не актуальна.
Lynx_by вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос для объединения ячеек Excel wadzik Microsoft Office Excel 12 24.10.2017 21:32
Макрос для объединения ячеек в Excel Vadim Lisovec Microsoft Office Excel 28 21.08.2013 11:53
макрос для объединения ячеек BAP9IT Microsoft Office Word 2 15.11.2012 18:43
Макрос для объединения ячеек с нулями SOS!!! DJTreeno Microsoft Office Excel 12 15.06.2011 13:30
Макрос для объединения одинаковых ячеек Internal2 Microsoft Office Excel 2 05.11.2009 14:00


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS