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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

Добрый день

Задача: сделать так, что то, что на картинке 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 в 19:27.
Lynx_by вне форума   Ответить с цитированием
Старый 22.08.2017, 12:17   #2
Lynx_by
Новичок
 
Регистрация: 21.08.2017
Сообщений: 4
Репутация: 10
По умолчанию

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

Опции темы

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

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

Быстрый переход

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


13:28.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.