Merge duplicate cells?

how to merge duplicate cells in excel vba
merge data from duplicate rows in excel based on unique column
merge cells with duplicate values in excel
merge adjacent cells in columns with same data/value in excel vba
excel merge cells with same value
how to combine multiple rows into one based on duplicates in excel?
c# excel merge cells with same value
power query merge duplicate rows

I have the following input:

and would like the following output:

The intended operation is to search column A for duplicate values (column is already sorted). Each duplicate value in A should be merged into 1 cell. Also, merge the same rows in B (take the top value if different, but safe to assume they are the same). Do not touch C.

I'm doing this manually now and it is a huge pain. I am new to VBA but it seems like that would be simple way to speed this up. Any tips?

Sub MergeCells()
    'set your data rows here
    Dim Rows As Integer: Rows = 20

    Dim First As Integer: First = 1
    Dim Last As Integer: Last = 0
    Dim Rng As Range

    Application.DisplayAlerts = False
    With ActiveSheet
        For i = 1 To Rows + 1
            If .Range("A" & i).Value <> .Range("A" & First).Value Then
                If i - 1 > First Then
                    Last = i - 1

                    Set Rng = .Range("A" & First, "A" & Last)
                    Rng.MergeCells = True
                    Set Rng = .Range("B" & First, "B" & Last)
                    Rng.MergeCells = True

                End If

                First = i
                Last = 0
            End If
        Next i
    End With
    Application.DisplayAlerts = True
End Sub

How to merge duplicate rows in Excel, To use this on multiple columns where only one column has the list that needs to be combined Duration: 6:26 Posted: Sep 15, 2016 How to combine duplicate rows in Excel: video transcript In this video we will learn how to keep unique values when merging duplicate rows in Microsoft Excel. You may have text values associated with the same record, or unique numbers that you want to count.

I've done this a few times...

Public Sub MergeDuplicates()

'disable alerts to avoid clicking OK every time it merges
Application.DisplayAlerts = False

'define the range
Dim r As Range
Set r = Sheets("Sheet1").Range("A1:B4")

'need a row counter
Dim i As Long
i = 1

'variables to store the value in A in a row and its upstairs neighbor
Dim this_A As String
Dim last_A As String

'step through the rows of the range
For Each rw In r.Rows
    If i > 1 Then   'only compare if this is not the first row - nothing to look backwards at!
        'get the values of A for this row and the one before
        this_A = rw.Cells(1, 1).Value
        last_A = rw.Cells(1, 1).Offset(-1, 0).Value

        'compare this A to the one above; if they are the same, merge the cells in both columns
        If this_A = last_A Then
            'merge the cells in column A
           Sheets("Sheet1").Range(r.Cells(i - 1, 1), r.Cells(i, 1)).Merge
            'merge the cells in column B
           Sheets("Sheet1").Range(r.Cells(i - 1, 2), r.Cells(i, 2)).Merge
        End If

    End If

i = i + 1 'increment the counter

Next rw

'enable alerts
Application.DisplayAlerts = True

End Sub

How to merge duplicate cells in Excel: Video, Merge duplicates and keep unique values. Go to Ablebits Data tab and click Combine Rows Duration: 6:26 Posted: Sep 15, 2016 How to Merge Cells in Excel. One of the most common reasons to merge multiple cells is when you’re creating a title row in your Excel spreadsheet. You can create the title text inside any of the cells that you’d like to merge. Format the text to appear however you’d like, including font size, style, and vertical alignment or height.

Try this, easily adaptible as the range can be modified without changing anything else.

Sub MergeRng
Dim Rng As Range, xCell As Range, WorkRng As Range
Dim xRows As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set WorkRng = Activeworkbook.ActiveSheet.Range("A1:B4")
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        With WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1))
            .Merge
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Source:

https://www.extendoffice.com/documents/excel/1138-excel-merge-same-value.html

How to Find and Remove Duplicates in Excel (the right way), In this tutorial, you learn how to find duplicates. in Excel (or Merge them) Finding and getting rid of duplicate cells is easy in a small� in Excel (or Merge them) Written by co-founder Kasper Langmann, Microsoft Office Specialist. As an Excel spreadsheet grows, you start finding a host of new issues to deal with. Especially if it gets updated regularly, and even more so if it gets updated by multiple people. One of the issues you’ll probably come across is duplicate values.

You have indicated that column A was sorted; it seems to me that both column A and column B should be sorted with column A as the primary key and column B as the secondary key.

Option Explicit

Sub wqwerq()
    Dim i As Long, d As Long

    Application.DisplayAlerts = False

    With Worksheets("sheet3")
        With .Cells(1, "A").CurrentRegion
            .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _
                        Key2:=.Columns(2), Order2:=xlDescending, _
                        Orientation:=xlTopToBottom, Header:=xlNo
            For i = .Rows.Count To 1 Step -1
                If Not .Cells(i, "B").MergeCells Then
                    d = Application.CountIfs(.Columns(1), .Cells(i, "A"), .Columns(2), .Cells(i, "B"))
                    If CBool(d - 1) Then
                        With .Cells(i, "B")
                            .Resize(d, 1).Offset(1 - d, 0).Merge
                            .HorizontalAlignment = xlCenter
                            .VerticalAlignment = xlCenter
                        End With
                    End If
                End If
                If i = Application.Match(.Cells(i, "A"), .Columns(1), 0) Then
                    d = Application.CountIfs(.Columns(1), .Cells(i, "A"))
                    If CBool(d - 1) Then
                        With .Cells(i, "A")
                            .Resize(d, 1).Merge
                            .HorizontalAlignment = xlCenter
                            .VerticalAlignment = xlCenter
                        End With
                    End If
                End If
            Next i
        End With
    End With

    Application.DisplayAlerts = True

End Sub

Merge duplicate cells?, Sub MergeCells() 'set your data rows here Dim Rows As Integer: Rows = 20 Dim First As Integer: First = 1 Dim Last As Integer: Last = 0 Dim Rng As Range� fastest way to merge duplicate cells in without looping Excel. 1. Sorting rows using merged cells in vba. 0. Using IsEmpty and Merging empty cells. 1.

How to quickly merge adjacent rows with same data in Excel?, Demo:Merge same cells into one cell or unmerge to fill duplicate values:. Combine duplicate rows and sum the values with Consolidate function. The Consolidate is a useful tool for us to consolidate multiple worksheets or rows in Excel, so with this function, we can also summarize multiple rows based on the duplicates.

How to combine duplicate rows and sum the values in Excel?, Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns Prevent Duplicate Cells; Compare Ranges Select� Check Delete duplicate values if the records you need to combine may contain identical items but you want to keep only unique values in your results: Select the Skip empty cells option to avoid adding extra delimiters to blank cells. To use the same delimiter in each column, click the Choose delimiter drop-down list at the top. You can either

2 Easy Ways to Consolidate Rows in Your Excel, Many users frequently need to merge the duplicate rows and sum the First off, click a blank cell where you want to place the merged and summed data. Then� How to Merge Duplicate Cells and Calculate the Summation in Excel Date: 2019-7-29 Author: Cordelia In actual statistics, a person or an item could appear multiple times in the list with different values followed.

Comments
  • After you are done with merging, are you planning to sort or filter them? Because you won't be able to do that unless all merged cells are the same size. Just wanted to save you from trouble if you are not aware of this. I personally avoid merging cells most of the time just because of this.
  • @Tehscript Thank you. I am doing all sorting and filtering before this step. Very good point for any future readers though
  • This works as advertised. I updated Rows = 20 to my actual number (in the thousands) and got correct output. Thank you sir
  • This solves the problem as asked in screenshots, but failed to merge cells if there were 3 or more duplicates in a row. For that reason I went with a different answer sorry
  • It will work if there are any number of duplicates in a row! Try it!