Macro to combine cells and then delete duplicates......

Hello Everyone,

I'm trying to save myself hours of going through 100's of rows of data to manually combining cells and then deleting duplicates.

I'm trying to locate a macro that would do the following:

1) Go through Column C to locate identical values.

2) If there is identical values in column C and the values in column A are different, combine both of those values into column A.

So for example, on rows 65 & 66 I'd like for there to be only 1 row for "CLAIM_NO" 525533564 with "2325 / 2337" in cell A.

Is this possible? I really appreciate the help.

Combining cells.jpg

Originally Posted by Kaper

Try a macro like this:

Sub test()
Dim i As Long
For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
  If Cells(i, "C") = Cells(i - 1, "C") Then
    Cells(i - 1, "A") = Cells(i - 1, "A") & " / " & Cells(i - 1, "A")
    Rows(i).Delete
  End If
Next i
End Sub

PS. Posting sample workbook not only picture makes answering easier - ona can check how the proposition works.

For instance - if numbers in A are short - excel could try to "help you and change for instance "11 / 12" to date. But no file -> no testing.

Kaper can you help?

Kaper,

Wow! That almost does exactly what I need. It appears to be deleting the duplicates. However, it doesn't appear to be combining to correct values into column A.

I've attached a copy of the workbook. I apologize, I didn't realize that was an option.

There is a button on sheet1.
If you want the out put to be on a separate sheet, I will change the code.

Kaper & AB33,

Thank you both very much for your response. I really appreciate it!