Как объединить диапазон в форматированную строку, используя массивы

Question

У меня есть следующие данные в Range ("A1: B2")

A1: 190-00-001-00
A2: 190-00-002-00
B1: 00
B2: 00

Моя цель - получить их в строку, которая в конечном итоге выглядит следующим образом: (('190-00-001- 00 ',' 00 '), (' 190-00-002-00 ',' 00 ')) Как я могу кодировать это в VBA с массивами?

Answer 1

Что-то вроде:

Sub makestring()
    Dim r As Range, rng As Range, sq As String
    Dim arr(1 To 4) As String, i As Long
    Set rng = Range("A1:B2")

    sq = "'"
    i = 1

    For Each r In rng
        arr(i) = sq & r.Text & sq
        i = i + 1
    Next r

    output = "((" & arr(1) & "," & arr(2) & "),(" & arr(3) & "," & arr(4) & "))"
    MsgBox output
End Sub