Advertisement
Advertisement
| 06.09.2008 at 08:00AM PDT, ID: 23469281 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: |
Public Function Concat(Target As Range, Optional Separator As String = ",") As String
Dim cell As Range
Dim blnFirst As Boolean
blnFirst = True
Concat = ""
For Each cell In Target
If Not blnFirst Then
Concat = Concat & Separator
Else
blnFirst = False
End If
Concat = Concat & cell.Value
Next
End Function
|