Сложная многоколоночная и многострочная конкатенация в Excel с использованием vba

Исходя из комментариев, я бы сделал это следующим образом:

В ячейке E2:

= A2 & "[" & B2 & "#" & C2 & "#" & D2

В ячейке F2:

= F1 & E2

(это предполагает, что F1 пусто)

Затем перетащите E2 и F2 вниз на длину ваших данных. Ваше окончательное значение будет значением в последней строке, ячейке F.

Надеюсь, это имеет смысл.

ОБНОВЛЕНИЕ:

Теперь вы знаете, что ваше окончательное значение — это последняя ячейка в столбце F, но вам нужно окружить ее ", поэтому в ячейку, в которую вы хотите получить окончательное решение, введите следующую формулу:

="""" & OFFSET(F2,COUNTA(F2:F100000)-1,0) & """"

Это найдет последнее значение в столбце F и заключит его в необходимые кавычки.

попробуйте что-то вроде. Я комментирую то, что он делает.

   'Children either refers to a range or a 2-d array
Function GetDescriptor(children) As String
    Dim descriptor As String
    Dim i As Long
    Dim arr

    'query if a range
    If TypeOf children Is Range Then
        'a) single cell range returns a scalar and b) doesn't make sense here anyway
        If children.Areas(1).Count = 1 Then Exit Function
        'load the data into an array (quicker than looping through cells)
        arr = children.Value
    End If

    'loop through the data
    For i = LBound(arr, 1) To UBound(arr, 1)
        'join the row's data together as specified
        descriptor = descriptor & _
            arr(i, LBound(arr, 2)) & "[" & _
            arr(i, LBound(arr, 2) + 1) & "#" & _
            arr(i, LBound(arr, 2) + 2) & "[" & _
            arr(i, LBound(arr, 2) + 3) & _
            IIf(i < UBound(arr, 1), ";", "")
    Next i

    'return wrapped in "
    GetDescriptor = """" & descriptor & """"

End Function

Вам нужно будет перебрать каждый столбец в каждой строке. Каждый столбец должен обрабатываться по-разному, потому что для каждого из них требуется свой разделитель. Код ниже должен помочь вам начать. Вам нужно будет исследовать функции, чтобы вы могли фактически возвращать значение, а также функции для возврата последней использованной строки. Это довольно жестко закодировано, но это должно помочь вам начать.

Sub myConcat()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' change to appropriate sheet

    Dim col As Long ' keeps track of what column we're on
    Dim row As Long ' keeps track of what row we're on

    Dim str As String 'stores string as we build it across the columns
    Dim finalstring As String ' stores string as we build it across rows; this will be our     final return value

    For row = 2 To 5 'change 5 to last row that needs processed
        For col = 1 To 4 ' number of colums with data
            Select Case col
                Case 1
                    str = Cells(row, col).Value
                Case 2
                    str = str & "[" & Cells(row, col).Value
                Case 3
                    str = str & "#" & Cells(row, col).Value
                Case 4
                    str = str & "[" & Cells(row, col).Value & ";"
            End Select
            'Debug.Print str
        Next col
        finalstring = finalstring & str
        Debug.Print finalstring
    Next row

End Sub