Помогите с Excel

[GOOSE]

Есть:
1
2
3
4
5

Нужно сделать:
1,2,3,4,5

(В строчку и что бы запятая была)
Пожалуйста

[tadpole]

Если предположить, что цифры 1 .. 5 находятся в ячейках A1 .. A5, то в ячейку B2 пишем

=A1&","&A2

в ячейку B3

=B2&","&A3

в ячейку B4

=B3&","&A4

в ячейку B5

=B4&","&A5

В результате в ячейке B5 получаем то, что надо.

[Clyde]

А если это просто колонка, тогда так можно:

Function ConvertToRow(InputRange As Range) As String
Dim Ret As String
    For Each NextCell In InputRange.Cells
    Ret = Ret & ", " & NextCell.Value
    Next NextCell
ConvertToRow = Right(Ret, Len(Ret) - 2)
End Function

[GOOSE]

tadpole
Спасибо
Дело в том что у меня не 5 строчек а 1200 с хвостиком
и этот метод меня просто убъет...

[GOOSE]

Сообщение от Clyde

А если это просто колонка, тогда так можно:

Function ConvertToRow(InputRange As Range) As String
Dim Ret As String
    For Each NextCell In InputRange.Cells
    Ret = Ret & ", " & NextCell.Value
    Next NextCell
ConvertToRow = Right(Ret, Len(Ret) - 2)
End Function

Clyde.
Я не совсем понял куда эту функцию вставить и надо ли выделять 12345..
Подскажи пжста

[tadpole]

Сообщение от GOOSE

tadpole
Спасибо
Дело в том что у меня не 5 строчек а 1200 с хвостиком
и этот метод меня просто убъет...

Отчего же? Excel отлично это дело съест и быстро сделает. И тебе не надо каждую ячейку заполнять - после заполения B3 берёшь её за правый нижний угол и тащишь до конца списка.

[Clyde]

Сообщение от GOOSE

Clyde.
Я не совсем понял куда эту функцию вставить и надо ли выделять 12345..
Подскажи пжста

1. Visual Basic Editor (Alt+F11)
2. Insert -> Module. Просто запейсти функцию туда. Build -> Compile.
3. Вернись обратно в workbook.
4. В нужной ячейке, напиши =ConvertToRow(A1:A16) (например).

Если я только правильно понял, что нужно

[GOOSE]

Сообщение от tadpole

Отчего же? Excel отлично это дело съест и быстро сделает. И тебе не надо каждую ячейку заполнять - после заполения B3 берёшь её за правый нижний угол и тащишь до конца списка.

Не, ну блин, надо же такую светлую голову и под черной шапкой держать!!!!!!!!
Меньше минуты все заняло... Спасибо Тадпол, здорово помог!
Ура!