Function join(r As Range, sep As String) As String Dim result As String Dim c As Range For Each c In r If c.Value <> "" Then result = result & c.Value & sep End If Next c If Len(result) = 0 Then join = "" Else join = Left(result, Len(resul…