Sub hij()
Dim i As Long, j As Long, s As String
i = 1
Do While Not IsEmpty(Cells(i, 1))
If InStr(1, Cells(i, 1), "/", vbTextCompare) = 0 Then
s = Cells(i, 1)
j = i + 1
Do While InStr(1, Cells(j, 1), s, vbTextCompare) < 0
j = j + 1
Loop
Range(Cells(i, 1), Cells(j - 1, 1)).EntireRow.Delete
Else
i = i + 1
End If
Loop
End Sub
worked for me with your data.
--
Regards,
Tom Ogilvy
" wrote:
Hi all,
Can some one help me please!
Here is a slightly more complex macro that I really need. I have a list
of domain names in excel for example:
1 www.throneofnails.com
2 www.throneofnails.com/info/index.html
3 www.fairkess.com/en/business/industrie.html
4 www.endlessdecor.com/Links.html
5 www.retractableawnings.com/resources.htm
6 www.ffbd-tm.com
7 www.ffbd-tm.com/test
I need a macro that will delete all the top level domain names eg
www.throneofnails.com and delete all files in that domain eg
www.throneofnails.com/info/index.html.
I need to be left with a list of only domain names like domain name 3,4
and 5.
I think it will probably have something to do with finding the cells
that dont contain a "/" then loading them into an array then deleting
all cells that contain the contents of that array.
Unfortunately I dont have the programing language to do this.
Your help would be much appreciated.
Many thanks
Alex Kemsley