excel merge cells

Sub MergeCells()
'
' MergeCells Macro
'
    Dim var As String
    
    rg = Selection.Address    ' Current selected range e.g. "F2:F5"
    Application.DisplayAlerts = False ' No popup when we will merge the cells at the end
    
    var = ""
    ' Selection is the current cell(s) selected e.g. "F2:F5", cell is F2, F3, ..., F5
    For Each cell In Selection
        var = var & vbCrLf & cell.Value ' Concatenate with newline in between
        
    Next cell
    
    ' Merge original selection, and update its value
    Range(rg).Merge
    Range(rg).Value = var
'
' MergeCells Macro
' https://stackoverflow.com/questions/4080741/get-user-selected-range
' https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa203726(v=office.11)?redirectedfrom=MSDN#concatenate-columns-of-data
' https://www.automateexcel.com/vba/cell-value-get-set/#Assign_Cell_Value_to_Variable
' https://stackoverflow.com/questions/26008268/get-the-value-of-the-cell-to-the-right-in-vba
' https://www.ozgrid.com/forum/index.php?thread/66522-supress-merge-cells-warning-message/
End Sub

View another examples Add Own solution

3.9

Yozora 90 points

                                    Sub MergeRightCells()
'
' Macro2 Macro
' https://stackoverflow.com/questions/4080741/get-user-selected-range
' https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa203726(v=office.11)?redirectedfrom=MSDN#concatenate-columns-of-data
' https://www.automateexcel.com/vba/cell-value-get-set/#Assign_Cell_Value_to_Variable
' https://stackoverflow.com/questions/26008268/get-the-value-of-the-cell-to-the-right-in-vba
' https://www.ozgrid.com/forum/index.php?thread/66522-supress-merge-cells-warning-message/
'
    Dim var As String
      
    var = &quot;&quot;
    
    ' Selection is the current cell(s) selected e.g. &quot;F2:F5&quot;
    For Each cell In Selection
        ' cell.Offset(, 1) takes the cell on the right e.g. G2, G3, G4, G5
        var = var &amp; vbCrLf &amp; cell.Offset(, 1).Value
        
    Next cell
    
    ' Take the concatenating values and put it back in the original selection
    ActiveCell.Value = var

'
End Sub

Thank you! 10

3.9 (10 Votes)

Are there any code examples left?

Find Add Code snippet

New code examples in category Other

Other 2023-03-27 22:50:10 how to select the whole line in vscode with keyboard shortcut
Other 2022-03-27 22:45:24 income of a web developer
Other 2022-03-27 22:35:01 \pyrcc_main.py: File does not exist 'resources.qrc'
Other 2022-03-27 22:30:45 rick roll embed code
Other 2022-03-27 22:20:08 Circuit_04_Potentiometer
Other 2022-03-27 22:20:05 iterative power
Other 2022-03-27 22:15:11 flutter run all
Other 2022-03-27 22:10:05 when is karlson release
Other 2022-03-27 22:10:02 wp .htaccess example
Other 2022-03-27 22:00:08 bash pause in file read line by line

Create a Free Account

Unlock the power of data and AI by diving into Python, ChatGPT, SQL, Power BI, and beyond.

Develop soft skills on BrainApps

Complete the IQ Test

Relative searches

excel merge cells

Welcome Back!

Create a Free Account