Добавить значение в строку

Question

Как мне перестать перезаписывать мою строку finalString и вместо этого добавлять к ней. Я хочу, чтобы каждый w в D (V) был одной строкой перед переходом к следующему w.

I = 1
x = 1
For Each V In D.keys
   Ws.Cells(I, 4) = V
   I = I + 1
   For Each w In D(V)
      finalString = w
      Ws.Cells(x, 5) = finalString
   Next w
   x = x + 1
Next V

Stop

Answer 1

попробуйте использовать +=, который добавит все значения к правому краю текущей finalString

UPDATE: Моя ошибка. В VBA иначе должно быть finalString = finalString & w

мои извинения

Answer 2

Попробуйте одну единственную строку кода:

Ws.Cells(x, 5) = Join(dict.Keys, "")

Чтобы получить все ЧАСТИЧНЫЕ сцепленные ключи:

Dim arr as Variant, i as long
arr = dict.Keys
  k = dict.count - 1
  For i = UBound(arr) To 0 Step -1
    ReDim Preserve arr(k): k = k - 1
    Debug.Print Join(arr, "")
  Next i