|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.03.2016, 15:06 | #1 |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
Цикл для объединения
Здравствуйте уважаемые!
Для объединения ячеек в двух столбцах применяю вот такой макрос: Код:
Может быть подскажите - чего ему не хватает. Благодарю за внимание. |
18.03.2016, 15:39 | #2 | |||
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Цитата:
Цитата:
Цитата:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|||
18.03.2016, 18:31 | #3 |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
Про программиста я знал изначально, но благо, что существует такой форум и в частности такие отзывчивые люди как Вы Игорь.
Спасибо. |
05.05.2016, 12:21 | #4 |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
IgorGO, опять без программиста - и ни туды и ни сюды. Не могу допетрить как в Ваш код воткнуть условие когда rc2=WorksheetFunction.CountIf(Colum ns(2), Cells(r2, 2))=1 (и аналогично rc3=1), а такое оказывается случается и тогда цикл обрывается. т.е вопрос - как организовать проверку If rc2 <> 1 и соответственно If rc3 <> 1, или это не возможно(недопустимо)? Кажется пересмотрел все, но ничего подобного не увидел или не нашел.
|
05.05.2016, 13:02 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
не совсем понимаю о чем речь, но...
сортируете данные по колонке 2 потом по 3 используете этот Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
05.05.2016, 14:20 | #6 |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
Иногда отсортированная колона имеет примерно такой вид:
Экскаватор Экскаватор Экскаватор Бульдозер Погрузчик Погрузчик Погрузчик т.е когда в колонке встречается всего одна одноименная ячейка, в нашем случае - Бульдозер, вот на нем(Бульдозере) код и спотыкается. Как проскочить эту одну ячейку, где и объединять-то нечего. И еще объясните пожалуйста предусловие -Do While r3 < r2 + rc2, в моем понимании r3 всегда будет меньше r2 + rc2 |
05.05.2016, 14:52 | #7 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
ладно, а такой
Код:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
Последний раз редактировалось IgorGO; 05.05.2016 в 14:57. |
05.05.2016, 15:39 | #8 |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
Благодарю.
С -Do While r3 < r2 + rc2 разобрался, - по горячке сам зациклися |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос для объединения ячеек Excel | wadzik | Microsoft Office Excel | 12 | 24.10.2017 21:32 |
Макрос для объединения ячеек в Excel | Vadim Lisovec | Microsoft Office Excel | 28 | 21.08.2013 12:53 |
макрос для объединения ячеек | BAP9IT | Microsoft Office Word | 2 | 15.11.2012 19:43 |
Макрос для объединения одинаковых ячеек | Internal2 | Microsoft Office Excel | 2 | 05.11.2009 14:00 |