How to concatenate cells ignore or skip blanks in Excel?
Excel’s Concatenate function can help you to combine multiple cell values into one cell quickly, if there are some blank cells within the selected cells, this function will combine the blanks as well. But, sometime, you just want to concatenate cells with data and skip the empty cells, how could you finish it in Excel?
Concatenate multiple cells ignore or skip blanks:
Kutools for Excel's Combine feature can help you to combine or concatenate multiple rows, columns or cells without losing data but skip or ignore blank cells.
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download and free trial Now!
Supposing, I have the following cells data which populated with some blank cells, to combine the rows into one cell, you can apply a formula to solve it.
Please enter this formula into a blank cell where you want to put the concatenated result, =A1&IF(A2<>"","-"&A2,"")&IF(A3<>"","-"&A3,"")&IF(A4<>"","-"&A4,"")&IF(A5<>"","-"&A5,""), then drag the fill handle right to the cells that you want to apply this formula, and the values of rows have been combined without the blank cells as following screenshot shown:
Tips: If there are more rows need to be concatenated, you should use the IF function to join the cells, such as =A1&IF(A2<>"","-"&A2,"")&IF(A3<>"","-"&A3,"")&IF(A4<>"","-"&A4,"")&IF(A5<>"","-"&A5,"")&IF(A6<>"","-"&A6,""). The "–" character in the formula can be replaced with any other delimiters that you need.
If there are multiple cells needed to be combined, the above formula will be too complex to execute, so, you can use the following User Defined Function to solve it.
1. Hold down the Alt + F11 keys in Excel, and it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following macro in the Module Window.
VBA code: Concatenate cells ignore blanks:
Function Concatenatecells(ConcatArea As Range) As String 'updateby Extendoffice 20151103 For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "/"): Next Concatenatecells = Left(nn, Len(nn) - 1) End Function
3. Save and close this code window, go back to the worksheet, then enter this formula: =concatenatecells(A1:A5) into a blank cell, and drag the fill handle right to the cells to apply this formula, and you will get the following result:
Tips: In the above VBA code, you can change the“/” character to any other delimiters that you need.
Excepting the boring formula and code, here, I can recommend a handy tool-Kutools for Excel, with its powerful Combine utility, you can concatenate multiple cells into one cell with no efforts.
|Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days.|
After installing Kutools for Excel, please do as follows:
1. Select the cells value that you want to combine.
2. Click Kutools > Combine, see screenshot:
3. In the Combine Columns or Rows dialog:
4. After finishing the settings, click Ok button, and the selected rows have been combined into one cell separately, and it has skipped the blanks automatically, see screenshot:
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
To post as a guest, your comment is unpublished.· 6 months agoThis worked a treat, thanks so much
To post as a guest, your comment is unpublished.· 10 months agoHi, used the macro and changed the "/" to a comma "," but got a lot of commas and it appeared to add all the blank cells.
I am doing a nested if statement to determine the appropriate sorting in the database. Is this enough to make the blank cell 'active' so that the macro sees this and adds it to the text string? How to work around that?
To post as a guest, your comment is unpublished.· 10 months agoHello, Melinda,
the above vba code works well in my worksheet, you just need to change the separator / to comma as below:
Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice 20151103
For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & ","): Next
Concatenatecells = Left(nn, Len(nn) - 1)
and then apply this formula：=concatenatecells(A1:A5)
To post as a guest, your comment is unpublished.· 10 months agothanks!
I found my problem was in the logic statement that I used to select data for these cells that I was trying to text string. I used a " " instead of "" for the false statement. That was picked up by the macro and used as a space bar and came out , , , , , text, , , ,
So I went back and took out the space and just have the "" and then the macro worked great.
Of course I am learning macros so that's another adventure.
To post as a guest, your comment is unpublished.· 1 years agoThank you, it was very helpful!
To post as a guest, your comment is unpublished.
To post as a guest, your comment is unpublished.· 2 years agoThank you! This saved hours of frustration on my part! Works as a charm!
To post as a guest, your comment is unpublished.· 3 years agoThe VBA script is wrong, because the output of the formula puts a huge space between the delimiters.