Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как объединить несколько строк в одном столбце в одну ячейку, чтобы в ячейке каждая строка была под другой?
 
В частности, при выгрузке из 1С субконто разбивает на несколько одна под одной идущих строк, необходимо объединить эти строки в одну ячейку, но чтобы в ячейке каждая строка также шла одна под другой.
Изменено: voler83 - 27 Авг 2013 12:40:59
 
Есть строки одна под другой, надо их в одну под другой объединить. В чем коварный смысл сего ритуала?
Сомневаюсь, что без Вашего файла с пояснениями "так было"->"так нужно", что-то можно Вам посоветовать.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Файл с примером того, что необходимо прикрепил.
 
В конкретном вашем случаем получаем такой код
Цитата

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

т.е. на сколько раскроете суть задачи на столько и сможем помочь вам...
 
Суть в том, чтобы для удобства обработки выгрузок из 1С сделать так как в примере, чрезвычайно желательно по сочетанию горячих клавиш, т.е. хотелось бы код макроса.
 
Ах да - необходимо сделать так, чтобы все нижележащие строки объединились в самую верхнюю ячейку и этиже нижележащие строки очистились
 
Код
[A1] = Join(WorksheetFunction.Transpose(Range("A1:A" & [A1].End(xlDown).Row)), vbLf)
Range("A2:A" & [A1].End(xlDown).Row).Clear
 
Watcher_1, я так понял, результат выводится только в ячейку А1? а можно не привязывать к конкретной ячейке, а объединять строки в самую верхнюю из выделенных ячеек?
 
Код
tmp = Join(WorksheetFunction.Transpose(Selection), vbLf)
Selection.Clear
Cells(Selection.Row, Selection.Column) = tmp
 
voler83, это уже похоже на издевку. Любите в кошки-мышки?
Я сам - дурнее всякого примера! ...
 
Watcher_1, спасибо!
Страницы: 1
Читают тему (гостей: 1)
Наверх