Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Объединение ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение ячеек (Макросы Sub)
Объединение ячеек
w00t Дата: Вторник, 05.11.2013, 22:18 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 3 ±
Замечаний: 0% ±

На форуме есть макросы MergePlus и ReMerge

Задача немного глобальней. Файл, с идущими подряд строками данных (допустим, подряд три строки, 5 столбцов). В каждой строке по горизонтали нужно проверить, является ли ячейка объединенной (2 строки, 1 ячейка по столбцу объединяется в двух строках) и тогда ее пропускаем, а если нет - то их объединить.

Например, ячейка A1 объединяется с A2, B1 с B2 и так в каждой строке по всей ее длине. Длина строк фиксирована (сорри, что не приложил пример, то же самое на словах, нет смысла). Проблема не в том, чтобы объединить, а чтобы данные в идущих подряд строках не объединять. Вставить пустые строки и объединить с пустыми непустые..

В случае трех строк вопрос простой, в случае 2053 гораздо сложнее. Подскажите, пожалуйста.
 
Ответить
СообщениеНа форуме есть макросы MergePlus и ReMerge

Задача немного глобальней. Файл, с идущими подряд строками данных (допустим, подряд три строки, 5 столбцов). В каждой строке по горизонтали нужно проверить, является ли ячейка объединенной (2 строки, 1 ячейка по столбцу объединяется в двух строках) и тогда ее пропускаем, а если нет - то их объединить.

Например, ячейка A1 объединяется с A2, B1 с B2 и так в каждой строке по всей ее длине. Длина строк фиксирована (сорри, что не приложил пример, то же самое на словах, нет смысла). Проблема не в том, чтобы объединить, а чтобы данные в идущих подряд строках не объединять. Вставить пустые строки и объединить с пустыми непустые..

В случае трех строк вопрос простой, в случае 2053 гораздо сложнее. Подскажите, пожалуйста.

Автор - w00t
Дата добавления - 05.11.2013 в 22:18
RAN Дата: Среда, 06.11.2013, 00:14 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
нет смысла

ждать ответа, мне кажется.
Лично я, перечитав трижды, понял, что ничего не понял.
Как вариант - циклом снизу вверх вставить пустые строки, циклом сверху вниз - объединить.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
нет смысла

ждать ответа, мне кажется.
Лично я, перечитав трижды, понял, что ничего не понял.
Как вариант - циклом снизу вверх вставить пустые строки, циклом сверху вниз - объединить.

Автор - RAN
Дата добавления - 06.11.2013 в 00:14
w00t Дата: Среда, 06.11.2013, 00:29 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 3 ±
Замечаний: 0% ±

Прикладываю... . "Так есть" и "Так должно быть" меняются местами. Т.е. справедливо, как для необъединенных - объединить, так и для объединенных - разделить. Но вывод Ваш логичный, правильно поняли :) Только что могут быть частично объединенные ячейки уже (A8, A9 пример), если такое есть - строку не вставлять, дообъединить оставшиеся.
К сообщению приложен файл: 7131986.xls (27.5 Kb)


Сообщение отредактировал w00t - Среда, 06.11.2013, 00:30
 
Ответить
СообщениеПрикладываю... . "Так есть" и "Так должно быть" меняются местами. Т.е. справедливо, как для необъединенных - объединить, так и для объединенных - разделить. Но вывод Ваш логичный, правильно поняли :) Только что могут быть частично объединенные ячейки уже (A8, A9 пример), если такое есть - строку не вставлять, дообъединить оставшиеся.

Автор - w00t
Дата добавления - 06.11.2013 в 00:29
RAN Дата: Среда, 06.11.2013, 00:46 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Алгоритм
Разъединяете ячейки.
Находите макрос удаления пустых строк, запускаете.
Вставляете через строку пустые строки
Объединяете.

И мяу. :)


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеАлгоритм
Разъединяете ячейки.
Находите макрос удаления пустых строк, запускаете.
Вставляете через строку пустые строки
Объединяете.

И мяу. :)

Автор - RAN
Дата добавления - 06.11.2013 в 00:46
Wasilich Дата: Среда, 06.11.2013, 16:21 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Разъединяете ячейки.
Находите макрос удаления пустых строк, запускаете.
Вставляете через строку пустые строки
Объединяете.

Это так что ли? :)
Только, пойдет ли w00tу. B)
К сообщению приложен файл: _w00t.xls (37.5 Kb)
 
Ответить
Сообщение
Разъединяете ячейки.
Находите макрос удаления пустых строк, запускаете.
Вставляете через строку пустые строки
Объединяете.

Это так что ли? :)
Только, пойдет ли w00tу. B)

Автор - Wasilich
Дата добавления - 06.11.2013 в 16:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение ячеек (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!