Set a condition for i = 0 in For Loop

user_19684883 0
Viewed 57

I find myself consistently having to set a condition for i = 0 in my For Loops and am wondering if there's a more efficient way to go about writing the for loop. For example:

For i = 0 to UBound(arr)
    If i = 0 then
        ws.range("A1") = arr(i)
        else
            ws.range("A1") = ws.range("A1") & ", " & arr(i)
    End If
Next i

Basically I'm wondering if this is the most efficient way to do this or if there's something I'm missing that would make this much more efficient.

for-loop vba excel
2 Answers

Join() is probably your best bet here, but you can simplify the type of loop you posted so there's only one cell write:

Dim i As Long, sep As String, v As String

For i = 0 To UBound(arr)
    v = v & sep & arr(i)
    sep = ", " 'assign after first value
Next i
ws.Range("A1").Value = v
user_4788840

If you want to do it with a loop you could also do it like that

Dim s As String
For i = 0 To UBound(arr)
        s = s & arr(i) & ","
Next i
ws.Range("A1").Value = Left(s, Len(s) - 1)
user_66009400
Related