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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос и объединение ячеек Excel макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос и объединение ячеек Excel макросом (Макросы/Sub)
Перенос и объединение ячеек Excel макросом
Foxter Дата: Четверг, 11.02.2016, 16:12 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день, дамы и господа.
Помогите, пожалуйста, слегка доработать макрос.
Суть макроса - найти повторяющиеся строки и если нет совпадений хотя бы в одном столбце, то оставить без изменений. Ну а если есть совпадения кроме последнего - объединить строки, при этом что бы последняя строка последнего столбца сцепилась.
Возможно я очень глухо объясняю, но вот файл пример.
На листе 1 - до изменения
На листе 2 - после.
Макрос уже там есть, но он немного не работает в плане сцепки.
Заранее благодарен за помощь.
К сообщению приложен файл: 6911000.xlsm(20Kb)


Сообщение отредактировал Foxter - Четверг, 11.02.2016, 16:12
 
Ответить
СообщениеДобрый день, дамы и господа.
Помогите, пожалуйста, слегка доработать макрос.
Суть макроса - найти повторяющиеся строки и если нет совпадений хотя бы в одном столбце, то оставить без изменений. Ну а если есть совпадения кроме последнего - объединить строки, при этом что бы последняя строка последнего столбца сцепилась.
Возможно я очень глухо объясняю, но вот файл пример.
На листе 1 - до изменения
На листе 2 - после.
Макрос уже там есть, но он немного не работает в плане сцепки.
Заранее благодарен за помощь.

Автор - Foxter
Дата добавления - 11.02.2016 в 16:12
Manyasha Дата: Четверг, 11.02.2016, 16:27 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1589
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
Foxter, здравствуйте. А что не работает-то? Знак "+" не нравится?
Замените строчку[vba]
Код
TmpArr(5) = TmpArr(5) & "+" & Arr(i, 5)
[/vba]на
[vba]
Код
TmpArr(5) = TmpArr(5) & Arr(i, 5)
[/vba]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеFoxter, здравствуйте. А что не работает-то? Знак "+" не нравится?
Замените строчку[vba]
Код
TmpArr(5) = TmpArr(5) & "+" & Arr(i, 5)
[/vba]на
[vba]
Код
TmpArr(5) = TmpArr(5) & Arr(i, 5)
[/vba]

Автор - Manyasha
Дата добавления - 11.02.2016 в 16:27
Foxter Дата: Пятница, 12.02.2016, 06:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Мне сейчас аж стыдно стало. Простите. Такой уже бардак в голове от всего того, что сейчас на работе происходит, что туплю не по детски. :(
Спасибо :)
 
Ответить
СообщениеМне сейчас аж стыдно стало. Простите. Такой уже бардак в голове от всего того, что сейчас на работе происходит, что туплю не по детски. :(
Спасибо :)

Автор - Foxter
Дата добавления - 12.02.2016 в 06:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос и объединение ячеек Excel макросом (Макросы/Sub)
Страница 1 из 11
Поиск:

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