Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как объединить несколько строк в одном столбце в одну ячейку, чтобы в ячейке каждая строка была под другой?
 
#1
27.08.2013 12:39:25
В частности, при выгрузке из 1С субконто разбивает на несколько одна под одной идущих строк, необходимо объединить эти строки в одну ячейку, но чтобы в ячейке каждая строка также шла одна под другой.
Изменено: voler83 - 27.08.2013 12:40:59
 
 
 
#2
27.08.2013 12:41:30
Есть строки одна под другой, надо их в одну под другой объединить. В чем коварный смысл сего ритуала?
Сомневаюсь, что без Вашего файла с пояснениями "так было"->"так нужно", что-то можно Вам посоветовать.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
27.08.2013 12:44:19
Файл с примером того, что необходимо прикрепил.
 
 
 
#4
27.08.2013 12:53:36
В конкретном вашем случаем получаем такой код
Цитата

[E1] = Join(WorksheetFunction.Transpose(Range("A1:A" & [A1].End(xlDown).Row)), vbLf)

т.е. на сколько раскроете суть задачи на столько и сможем помочь вам...
 
 
 
#5
27.08.2013 12:55:33
Суть в том, чтобы для удобства обработки выгрузок из 1С сделать так как в примере, чрезвычайно желательно по сочетанию горячих клавиш, т.е. хотелось бы код макроса.
 
 
 
#6
27.08.2013 13:00:08
Ах да - необходимо сделать так, чтобы все нижележащие строки объединились в самую верхнюю ячейку и этиже нижележащие строки очистились
 
 
 
#7
27.08.2013 13:04:16
Код
[A1] = Join(WorksheetFunction.Transpose(Range("A1:A" & [A1].End(xlDown).Row)), vbLf)
Range("A2:A" & [A1].End(xlDown).Row).Clear
 
 
 
#8
27.08.2013 13:19:47
Watcher_1, я так понял, результат выводится только в ячейку А1? а можно не привязывать к конкретной ячейке, а объединять строки в самую верхнюю из выделенных ячеек?
 
 
 
#9
27.08.2013 13:33:51
Код
tmp = Join(WorksheetFunction.Transpose(Selection), vbLf)
Selection.Clear
Cells(Selection.Row, Selection.Column) = tmp
 
 
 
#10
27.08.2013 13:38:05
voler83, это уже похоже на издевку. Любите в кошки-мышки?
Я сам - дурнее всякого примера! ...
 
 
 
#11
27.08.2013 13:47:58
Watcher_1, спасибо!
 
 
 
Страницы: 1
Наверх