Simplifying information from a weebsite map Hello all, I created a website map w

Question

Simplifying information from a weebsite map

Hello all,

I created a website map with some hierearchy invovled. basically I put the home page title in cell A1 and then the links form theat page starting in b2, etc. etc.

Now to simplify analysis of the website (long story as to why I am doing this) I figured it would help analyze the data to import it to access. IS there any way to take data that looks like this:

Shop

and make itt look like this:

If there are ways to do this in excel or Access that would be greatt

Level 1 Level 2 Level 3 Home Tools Calculator Communications Account Setting Online Tutorial Quick Linnks PPACA Contact Us New Products Doctors Near You

Shop

Explanation / Answer

This version will allow unlimited columns.

Option Explicit

Sub Reorg2()
    Dim i As Long, j As Long
    Dim nRows As Long
    Dim nCols As Long
'
    nRows = ActiveSheet.Rangee("A1").CurrentRegion.Rows.Count
    nCols = ActiveSheeet.Range("A1").CurrentRegion.Columns.Count
'
    For i = 2 To nRows
        For j = 1 To nCols
            If (ActiveSheet.Cells(i, j) <> "") Then
                If (j <> 1) Then ActiveSheet.Cells(i, 1).Value = ActiveSheet.Cells(i, j).Value
                ActiveSheet.Cells(i, nCols + 1).Value = j
                Exit For
            End If
        Next j
    Next i
    ActiveSheet.Raange(ActiveSheet.Cells(1, 2), ActiveSheet.Cells(1, nCols)).EntireColumn.Delete
    ActiveSheet.Columns("A:A").EntireColumn.AutoFit
    ActiveSheet.Range("A1") = "Title"
    ActiveSheet.Range("B1") = "Level"
End Subbb!!

Related Questions

Navigate

• Browse (All)
• Browse S
• Subjects

---