Macro Find Records that change in Column

[neodjandre]

I have a column like this:

Line1: J1
Line2: J1
Line3: J2
Line4: J2
Line5: J2
Line6: J3
Line7: J3
Line8: J4
Line9: J4
Line10: J4
Line11: J5
Line12: J5

I would like a macro to find the last occurence of each J and draw a horizontal line in my table. In the above example, a line should be drawn on "Lines" 2,5,7,10,12.

Appreciate the help.

Andrew

 

[mumps]

In which column are your "J" values and how many columns are in your table?

 

[neodjandre]

column C and there are 10 columns in the table.

thank you!

 

[Fluff]

You could do that with conditional formatting.

Select A2 to last row in column J
Conditional Formatting > New Rule > Use a formula
=$C2<>$C3
then select the format > Ok

 

[neodjandre]

thank you Fluff - that's actually a much better solution you are suggesting ! thanks so much

 

[neodjandre]

though I am trying to apply a thick border - and for some reason this is not supported in conditional formatting ..

 

[Fluff]

Unfortunately CF only allows a thin border for some reason.

 

[Fluff]

If you want a thick border, try

Sub neodjandre()
   Dim Cl As Range
   
   For Each Cl In Range("C2", Range("C" & Rows.Count).End(xlUp))
      If Cl.Value <> Cl.Offset(1).Value Then
         Cl.Offset(, -2).Resize(, 10).Borders(xlEdgeBottom).Weight = xlThick
      End If
   Next Cl
End Sub

 

[neodjandre]

great, I will work with this

 

[Fluff]

You're welcome