Как вставлять в группу ячеек по несколько строк сразу

[mmet]

Для примера есть непрерывной текстовой список типа:
a1
a2
б1
б2
в1
в2
и т.д.

как вставить его в Excel, чтобы каждая позиция не занимала свою строку, а попадали сразу по 2,3,4 и т.д. (как задано будет) в одну ячейку?

или как можно объединить в столбце все ячейки попарно (по тройке, четверке и т.д.)?

[EducatedFool]

Для примера есть непрерывной текстовой список типа:

Где есть?
В текстовом файле, в книге Excel, в буфере обмена, ещё где-то?

как задано будет

Где и как будет задано? Покажите пример файла с тем, что есть, и с тем, что надо получить.

[mmet]

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

Где есть?
В текстовом файле, в книге Excel, в буфере обмена, ещё где-то?

Где и как будет задано? Покажите пример файла с тем, что есть, и с тем, что надо получить.

Изначально в текстом файле, можно перенести в excel, буфер, не суть

Количество строк в каждой ячейке задается один раз при операции вставки, я не знаю как задается, потому что не знаю, как так можно вставить

Изначально есть список типа:
IMG_5555.jpg
IMG_5556.jpg
IMG_5557.jpg
IMG_5558.jpg
IMG_5559.jpg
IMG_5560.jpg

Нужно, что в каждую ячейку в строке попадало сразу по N позиций из списка (по умолчанию каждая вставляется в свою строку, либо все в одну ячейку, если её предварительно активировать)

[EducatedFool]

Выделите первую ячейку для вставки, и запустите этот макрос:

Sub Макрос()
    Dim n As Integer, txt$, filename$: On Error Resume Next: Err.Clear
    n = InputBox("Введите кол-во строк в одной ячейке", , 4) ' значение по умолчанию
    If Err > 0 Or n <= 0 Then Exit Sub
    filename$ = "C:\Documents and Settings\Admin\Рабочий стол\список файлов.txt"
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename$, 1, True): txt$ = ts.ReadAll: ts.Close
    Application.ScreenUpdating = False: arr = Split(txt$, vbNewLine)
    ActiveCell.EntireColumn.ColumnWidth = 20 ' ширина столбца
    For i = LBound(arr) To UBound(arr) Step n
        For j = 0 To n - 1
            If i + j <= UBound(arr) Then t = t & vbLf & arr(i + j)
        Next j
        ActiveCell.Offset(pos) = Mid(t, 2): pos = pos + 1: t = ""
    Next i
End Sub

Вот вам пример в виде файла: http://excelvba.ru/XL_Files/Sample__...__21-08-57.zip
Вставьте в ячейку полный путь к файлу TXT, и нажмите зелёную кнопочку

[mmet]

Большое спасибо!
То что нужно )