=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