var elem = arr[i];
(function(elem) {
// код c $.get здесь
})(arr[i]);
=ampersand((нужный диапозон/ячейки);", ")
.Function ampersand(rRange As Range, Optional txt$ = "; ") As String
Dim rCell As Range
For Each rCell In rRange
If rCell.Value <> "" Then
ampersand = ampersand & Trim(rCell.Value) & txt
End If
Next
ampersand = Left(ampersand, Len(ampersand) - Len(txt))
End Function