Looping Function for Matching Rows

Hi ExcelGuy160

Here is how to combine all those ANDs and makes it more readable. I only did the top for you. You can figure out the second one.

If Range("A4") = Range("A3") Then
    If Range("B4") = Range("B3") Then
        If Range("C4") = Range("C3") Then
            If Range("E4") = Range("E3") Then
                If Range("F4") = Range("F3") Then
                    If Range("G4") = Range("G3") Then
                        Range("D3") = Range("D3") & Range("D4")
                        Range("A4:G4").Font.ColorIndex = 50
                    End If
                End If
            End If
        End If
    End If
End If

Another method using For Next loop and cells instead of range would be: (Top only)

Dim ColCtr As Double
Dim RowCtr As Double

For ColCtr = 1 To 3
    If Cells(4, ColCtr) <> Cells(3, ColCtr) Then
        GoTo DidNotPass
    End If
Next ColCtr
For ColCtr = 5 To 7
        If Cells(4, ColCtr) <> Cells(3, ColCtr) Then
        GoTo DidNotPass
    End If
Next ColCtr
Range("D3") = Range("D3") & Range("D4")
Range("A4:G4").Font.ColorIndex = 50
DidNotPass:

This would also work as the above but a little simpler?

Dim ColCtr As Double
Dim RowCtr As Double

    For ColCtr = 1 To 7
        If ColCtr = 4 Then GoTo Skip4
        If Cells(4, ColCtr) <> Cells(3, ColCtr) Then
            GoTo DidNotPass
        End If
Skip4:
    Next ColCtr
    
Range("D3") = Range("D3") & Range("D4")
Range("A4:G4").Font.ColorIndex = 50
DidNotPass:

Thanks so much for your help! I guess my question is: how do I make this a loop to go through as many as 3K lines on the worksheet. Will I have to code each line like this in VB or is there a shorter way write a looping macro?

Is it possible for non-consecutive rows to match, say rows 5, 200, 603, etc, or are you just compairing consecutive rows?

There is a possibilty of a group of rows to match that are consecutive, but nothing non-consecutive like 5, 200, etc. For example:
A2 B2 C2 D2 E2 F2 G2
A3 B3 C3 D3 E3 F3 G3
A4 B4 C4 D4 E4 F4 G4
becomes:
A2 B2 C2 D2D3D4 E2 F2 G2
A3 B3 C3 D3 E3 F3 G3
A4 B4 C4 D4 E4 F4 G4

Thank you for your help! However, the code didn't work for me - didn't seem to make any changes to the worksheet. Everything in the rows needs to match for the row to be deleted except col D. the contents of col D need to be combined with the col D cell above it, then the row deleted if A, B, C, E, F, and G are a match. Does that make sense?

Sub snb()
  For j = 1 To cells(1,1).currentregion.rows.count-1
    If Replace(Join(Application.Transpose(Application.Transpose(Cells(j, 1).Resize(, 7))), ""), Cells(j, 4), "") = Replace(Join(Application.Transpose(Application.Transpose(Cells(j + 1, 1).Resize(, 7))), ""), Cells(j + 1, 4), "") Then
       Cells(j + 1, 4) = Cells(j, 4) & Cells(j + 1, 4)
       Cells(j, 1).Resize(, 7).ClearContents
    End If
  Next
End Sub

You would do best to post a sample workbook showing Before and After.

It should clearly illustrate your problem and not contain any sensitive data.

Cheers
.

SNB, thank you! that worked great! Much appreciated