Excel столбик в ячейку

[NatalieRedFox_333]

Здравствуйте ув. гуру .!
Как можно можно собрать столбик в ячейку и каждая ячейка столбика с новой строки....?
собрать можно формулой - =A1&", "&A2&", "&A3&", "&A4&", "&A5&", "&A6&", "&A7&", "&A8&", "&A9
но надо чтобкаждая ячейка была сновой строки...

A1&", "&
A2&", "&
A3&", "&
A4&", "&
A5&", "&
A6&", "&
A7&", "&A
8&", "&
A9
вот в таком виде надо получить текст в ячейке

Как можно можно собрать
столбик в ячейку и каждая
ячейка столбика с новой строки

 

[NatalieRedFox_333]

забыла добавить.... разделитель любой знак ( . , : : !) или просто двойной пробел...)))

 

[NatalieRedFox_333]

разрыв сделала.... но для текста )))
а сразу в формулу вставить пока не получается....))))

 

[NatalieRedFox_333]

а формулой можно разрыв вставить в нужных местах через Ctrl+H .?

 

[splxgf]

=A1&СИМВОЛ(10)&A2
Только для ячейки нужно задать возможность переноса.

 

[NatalieRedFox_333]

вот нашла...

Sub Split_By_Rows()
    Dim cell As Range, n As Integer
 
    Set cell = ActiveCell
 
    For i = 1 To Selection.Rows.Count
        ar = Split(cell, Chr(10))         'делим текст по переносам в массив
        n = UBound(ar)                    'определяем кол-во фрагментов
        cell.Offset(1, 0).Resize(n, 1).EntireRow.Insert             'вставляем пустые строки ниже
        cell.Resize(n + 1, 1) = WorksheetFunction.Transpose(ar)     'вводим в них данные из массива
        Set cell = cell.Offset(n + 1, 0)                            'сдвигаемся на следующую ячейку
    Next i
End Sub

 

[NatalieRedFox_333]

только пока не разобралась как он работает )))

 

[splxgf]

только пока не разобралась как он работает )))

Судя по коду он делает обратную задачу, строчки раскидывает по столбцам.

 

[NatalieRedFox_333]

=A1&","&СИМВОЛ(10)&A2&","&","&СИМВОЛ(10)&A3

 

[NatalieRedFox_333]

Судя по коду он делает обратную задачу, строчки раскидывает по столбцам.

да...что то странно себя ведет....))))

Тонкости работы с переносами строк в Excel

Список приемов эффективной работы в Microsoft Excel

www.planetaexcel.ru

Макрос для деления на строки по Alt+Enter​

Для полноты картины давайте упомянем решение предыдущей задачи ещё и с помощью макроса. Откройте редактор Visual Basic с помощью одноимённой кнопки на вкладке Разрабочик (Developer) или сочетания клавиш Alt+F11. В появившемся окне вставьте новый модуль через меню Insert - Module и скопируйте туда нижеприведённый код:

?

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Split_By_Rows() Dim cell As Range, n As Integer Set cell = ActiveCell For i = 1 To Selection.Rows.Count ar = Split(cell, Chr(10)) 'делим текст по переносам в массив n = UBound(ar) 'определяем кол-во фрагментов cell.Offset(1, 0).Resize(n, 1).EntireRow.Insert 'вставляем пустые строки ниже cell.Resize(n + 1, 1) = WorksheetFunction.Transpose(ar) 'вводим в них данные из массива Set cell = cell.Offset(n + 1, 0) 'сдвигаемся на следующую ячейку Next i End Sub

 

[NatalieRedFox_333]

а еще можно через Ctrl+J ))))