Keep Only 3 Rows of Each Name

[seannydj]

Hi All,

I have a pretty basic question. I am just trying to keep 3 rows of each name within a specific column. I'm not sure how to best describe it but I have attached a copy of a document of what I was trying to accomplish. Any and all help would be greatly appreciated!

Thanks!

Sean

Question.xlsx

[NeedForExcel]

Are you OK with VBA?

[seannydj]

Of course!

[NeedForExcel]

First see the file attached.

If that does not help, Ill give you a solution using VBA

Deep

[NeedForExcel]

I have used a helper column. I generally prefer using helper columns to problems like these rather than using complex formulas or VBA.

However its upto you, let me know whats needed.

Deep

[seannydj]

Thanks for looking into this! VBA would be ideal if possible?

[seannydj]

I made a little bit of progress. I was able to find 3 of the rows but I still cant copy the full row:

Sub FindWord()
Dim found As Range
Set found = Range("B:B").Find(What:="NAME1", LookIn:=xlValues, LookAt:=xlPart)
If Not found Is Nothing Then found.Resize(3).Copy Destination:=Range("J2")

Set found = Range("B:B").Find(What:="NAME2", LookIn:=xlValues, LookAt:=xlPart)
If Not found Is Nothing Then found.Resize(3).Copy Destination:=Range("J5")
End Sub

[NeedForExcel]

Please see the file attached.

Hope this helps.

I am sorry for the delay.

I'D still suggest to avoid VBA

Deep

[seannydj]

Thank you sir!