The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Sub CountID()
For Each c In Range("A2:A" & ActiveCell.SpecialCells(xlCellTypeLastCell).Row)
i = i + 1
j = j + 1
If c.Value <> c.Offset(1, 0).Value Then
Range("A2").Offset(j - i, 2).Value = i
i = 0
End If
Next c
End Sub
BlockRows.xlsm
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join the community of 500,000 technology professionals and ask your questions.