I have a worksheet contains 10,000 rows and columns A to H
The range is A1:H10,000.

e.g.
colums: A B C D E F G H

1) M N O P Q R S T

2) O P Q R S A B C

3) A B P Q R C D E

4) A B D G H I J K

In the above example, row 1 will be hidden, row 2 will also be hidden,
row 3 will not be hidden.
This module will check present row against next row , if it find 5 or
more cells are equal , then
the present row will be hidden and this will loop through the whole
worksheet.

Thank you for the help.



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Michael:

This code should do it..

Sub CompareCells()
Dim c, c1, r, iCounter As Integer
r = 1
iCounter = 0

Do Until Cells(r, 1) = ""

For c1 = 1 To 8
For c = 1 To 8
If Cells(r, c1) = Cells(r + 1, c) Then
iCounter = iCounter + 1
End If
Next c
Next c1

If iCounter = 5 Then
Rows(r).Select
Selection.EntireRow.Hidden = True
End If
r = r + 1
iCounter = 0
Loop

End Sub



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Michael,

You can use the code below or download the file named 'Michael168.xls'
below.

Sub CompareCells()
Dim c, c1, r, iCounter As Integer
r = 1
iCounter = 0

Do Until Cells(r, 1) = ""

For c1 = 1 To 8
For c = 1 To 8
If Cells(r, c1) = Cells(r + 1, c) Then
iCounter = iCounter + 1
End If
Next c
Next c1

If iCounter = 5 Then
Rows(r).Select
Selection.EntireRow.Hidden = True
End If

r = r + 1
iCounter = 0

Loop

End Sub

File Attached: http://www.exceltip.com/forum/attach...?postid=287736 (michael168.xls)

------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/