Function concatenate_nonblanks(x As Range, spl As String)
Dim cell As Range
Dim rsl As String
For Each cell In x
If cell <> vbNullString Then
rsl = rsl & spl & cell
End If
Next
concatenate_nonblanks = Right(rsl, Len(rsl) - 1)
End Function
Monday, January 30, 2012
UDF to concatenate non blank cells in a range
If you want to concatenate non blank cells in a range . Snapshot below-
Function concatenate_nonblanks(x As Range, spl As String)
Dim cell As Range
Dim rsl As String
For Each cell In x
If cell <> vbNullString Then
rsl = rsl & spl & cell
End If
Next
concatenate_nonblanks = Right(rsl, Len(rsl) - 1)
End Function
Function concatenate_nonblanks(x As Range, spl As String)
Dim cell As Range
Dim rsl As String
For Each cell In x
If cell <> vbNullString Then
rsl = rsl & spl & cell
End If
Next
concatenate_nonblanks = Right(rsl, Len(rsl) - 1)
End Function
Subscribe to:
Post Comments (Atom)
-
If you want to add a new pop up button on mouse right click menu and as soon as you click on it . It shows you multiple buttons with macro a... -
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
No comments:
Post a Comment