I have excel sheet with data up to 5k rows. What I need to do is to remove duplicate rows having similar value at Column A and C. The problem now I need to combine data at Column F before I can delete duplicate rows. By using formula I don’t think it will work. Therefore I have to write Macro to perform this work. The code that work as below. Hope this code will help who ever have same problem.

<pre style="overflow: auto; width: 94%;">

Option Explicit

Sub RemoveDuplicateAndBringUpCommon()

Dim x As Long, y As Long

Dim ActWs As Worksheet

Set ActWs = ActiveSheet

x = 2

y = x + 1

Do While ActWs.Range("C" & x).Value <> ""

Do While ActWs.Range("C" & y).Value <> ""

If ActWs.Range("A" & x).Value = ActWs.Range("A" & y).Value And _

ActWs.Range("C" & x).Value = ActWs.Range("C" & y) Then

ActWs.Range("F" & x) = ActWs.Range("F" & x) & "," & ActWs.Range("F" & y)

ActWs.Rows(y).EntireRow.Delete

Else

y = y + 1

End If

Loop

x = x + 1

y = x + 1

Loop

End Sub

<pre>

Please help to share or comment if got better ideas.

Thank You.