День добрый! Подскажите пожалуйста как можно грамотно объединить ячейки. в листе "как есть" - как есть сейчас, что хочется: чтобы объединялись ячейки, может быть макросом, к примеру из примера столбец A2 + A3 (до нижней границы строки которая находится в А3) , если взять ещё пример то А8&А9&А10(опять же до нижней границы .. она всегда будет подчеркнута) то есть в идеале должно получиться как в листе "как бы хотелось" . Помогите пожалуйста! Заранее благодарен! С меня небольшой donate на вебмани тому кто поможет!
Объединение ячеек с помощью макроса
30.09.2013 11:18:21
|
|
|
|
30.09.2013 11:26:31
Смысл?
Можно ведь объединять не ячейки, а эти порезанные данные - получите нормальную таблицу без дыр (лишние строки в процессе удалить).
Изменено: |
|
|
|
30.09.2013 11:26:50
А зачем Вам именно объединённые ячейки? Ведь конечная цель - получить данные в ОДНУ строку. Правильно я понимаю?
|
|
|
|
30.09.2013 11:29:41
2Hugo к сожалению есть просто средствами которыми ныне настроена выгрузка иначе как криво - выгружать не получается...поэтому приходится изворачиваться
2Юрий М: всё верно! |
|
|
|
30.09.2013 11:55:11
Вариант в файле.
|
|
|
|
30.09.2013 11:55:20
Так в чём смысл объединять ячейки? Думаю пока не поясните - делать никто не будет. Ну разве что от безделья... Потому что проще объединить значения, а лишнее удалить.
|
|
|
|
30.09.2013 11:59:03
Игорь, так автор объяснил: ответ в #4 (п. 2) на мой #3
|
|
|
|
30.09.2013 12:03:13
"2Юрий М: всё верно!" - вот это ответ? Не убедительно... Ну да ладно. Надеюсь твоё решение подошло
Изменено: |
|
|
|
30.09.2013 12:07:19
Ну да: конечная цель - одна строка))
|
|
|
|
30.09.2013 12:10:13
Сначала это:
Затем это: И это: Второе и третье можно менять местами, в зависимости от того, как будете использовать. Можно сначала в отдельные столбцы подтянуть данные функцией, вставить как значения, а далее через команду Удалить дубликаты удалить дублирующиеся строки.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
|
|
|
|
30.09.2013 13:07:22
Если вдруг кому-то нужен второй вариант -
|
|
|
|
30.09.2013 13:10:48
Похоже, автору уже не нужно))
|
|
|
|
30.09.2013 16:29:48
LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
Или лучше 1. Пока модератор спит
Изменено: |
|
|
|
30.09.2013 20:13:12
У Вас же в столбце по этим строкам пусто в столбце С - потому и не доходит до них дело. Попробуйте поменять код для таких данных, как предлагает Игорь.
|
|
|
|