Excel VBA — объединение строк с разделителем и одинарными кавычками

Вы можете использовать метод Join в VBA с заданным разделителем:

e.g.

someArray = Array("some", "words", "here")
Debug.Print "'" & Join(someArray, "';'") & "'"

'// will print:
'// 'some';'words';'here'

Я знаю, что вы просили VBA, но вы можете сделать это с помощью формулы:

In B2:

=IF(ROW()=2,TEXTJOIN(";",TRUE,"'"&B1,"'"&A2&"'"),TEXTJOIN(";",TRUE,B1,"'"&A2&"'"))

и перетащите вниз:

Or

В B1 используйте ="'"&A1&"'", затем в B2 (и перетащите вниз):

=SUBSTITUTE(TEXTJOIN(";",TRUE,"'"&B1,"'"&A2&"'"),"'","",1)

Вы можете добиться желаемого результата, используя эту формулу:

=CONCATENATE(B2, " ; '", A3, "'")

Сначала поместите значение из ячейки A2 в B2 вручную (используя формулу ="'" & A2 & "'"), а затем вставьте эту формулу в ячейку B3 и перетащите ее вниз.

Вот результат с обновленной формулой:

ОБНОВЛЕНИЕ (Спасибо Брюсуэйну)

Введите значение в ячейку B2, используя:

="'" & A2 & "'"

Так что потребуется первый '

Я бы просто сделал такой простой цикл.

Sub combineRows()

    'start and end rows, assuming column A
    Dim startRow, endRow As Integer

    Dim myString, myAdd As String

    startRow = 2
    endRow = 6



    For i = startRow To endRow


        myAdd = "'" & Range("A" & i) & "'" & ";"

        myString = myString + myAdd

        Range("B" & i) = myString

    Next i



End Sub

Вот моя функция JoinRange. У него есть еще несколько вариантов, чем вы ищете.

Public Function JoinRange(rInput As Range, _
     Optional sDelim As String = vbNullString, _
     Optional sLineStart As String = vbNullString, _
     Optional sLineEnd As String = vbNullString, _
     Optional sBlank As String = vbNullString, _
     Optional sQuotes As String = vbNullString, _
     Optional IgnoreBlanks As Boolean = True) As String

     Dim vaCells As Variant
     Dim i As Long, j As Long
     Dim lCnt As Long
     Dim aReturn() As String

     If rInput.Cells.Count = 1 Then
        ReDim aReturn(1 To 1)
        aReturn(1) = sQuotes & rInput.Value & sQuotes
     Else
        vaCells = rInput.Value
         ReDim aReturn(1 To rInput.Cells.Count)

         For i = LBound(vaCells, 1) To UBound(vaCells, 1)
             For j = LBound(vaCells, 2) To UBound(vaCells, 2)
                 If Len(vaCells(i, j)) = 0 Then
                     If Not IgnoreBlanks Then
                         lCnt = lCnt + 1
                         aReturn(lCnt) = sQuotes & sBlank & sQuotes
                     End If
                 Else
                     lCnt = lCnt + 1
                     aReturn(lCnt) = sQuotes & vaCells(i, j) & sQuotes
                 End If
             Next j
         Next i

         ReDim Preserve aReturn(1 To lCnt)
     End If

     JoinRange = sLineStart & Join(aReturn, sDelim) & sLineEnd

End Function

использовать его в B1 как

=JoinRange($A$1:A1,";")

и заполнить.

_{Чтобы избежать визуальной путаницы, я предложу CHAR(39)&CHAR(59)&CHAR(39) вместо "';'".}

В B1 используйте это:

=CHAR(39)&TEXTJOIN(CHAR(39)&CHAR(59)&CHAR(39), TRUE, A$1:A1)&CHAR(39)

Заполните.

... или если важен только конечный результат,

=CHAR(39)&TEXTJOIN(CHAR(39)&CHAR(59)&CHAR(39), TRUE, A1:A5)&CHAR(39)

Одинарная галочка (иначе одинарная кавычка или ') – это 39-й символ ASCII, а точка с запятой – 59-й символ ASCII.