Skip to content

Instantly share code, notes, and snippets.

@uovidiu
Created January 20, 2017 11:23
Show Gist options
  • Save uovidiu/0e26bcf5f7f73bff67d530c6d2582258 to your computer and use it in GitHub Desktop.
Save uovidiu/0e26bcf5f7f73bff67d530c6d2582258 to your computer and use it in GitHub Desktop.
Excel concat if not empty
Function MyConcat(ConcatArea As Range) As String
For Each x In ConcatArea: xx = IIf(x = "", xx & "", xx & x & "|"): Next
MyConcat = Left(xx, Len(xx) - 1)
End Function
// ALT +F11
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment