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

Вход

Регистрация

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

 

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

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

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


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

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

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


ЯД: 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 из 1
  • 1
Поиск:

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