Join array VBA

[Tian1]

Good day,

I would just like to join the following array and display it in one string. I've got the following code which should be more or less in line with what I want to achieve. (this is just an outtake from the rest of my code)

ReDim accndata(accs, 1)


For acccount = 1 To accs


    accndata(acccount, 1) = Cells(rowbegin + 1, 3).Value
    rowbegin = rowbegin + 1
    
    ReDim Preserve accndata(accs, 1)
    total = accndata(acccount, 1) & vbCrLf
    
Next acccount


MsgBox "the values of my dynamic array are: " & vbCrLf & total

I appreciate the help!

 

[Peter_SSs]

I don't understand your dimensioning and re-dimensioning of the accndata array. However, from what I can make of your partial code, you are trying to read values from a column into an array & then join those values with vbCrLf ?

If so, you could try something like this that reads the values into the array all at once & then joins the array values in a single pass as well.

If this is not what you want, then please give more detail about what you have, where, and what you are trying to achieve.

With the dummy values I have used, this reads the values from C6:C9 into the array.

Sub Join_Values()
  Dim accndata As Variant
  Dim accs As Long, rowbegin As Long
  Dim Total As String
  
  accs = 4
  rowbegin = 5
  accndata = Cells(rowbegin + 1, 3).Resize(accs).Value
  Total = Join(Application.Transpose(accndata), vbCrLf)
  MsgBox "the values of my dynamic array are: " & vbCrLf & Total
End Sub

 

[Tian1]

That's perfect, thanks Peter!

 

[Peter_SSs]

That's perfect, thanks Peter!

Good news.
You are welcome.