Matrix to Table

Hello Everybody !

I need to convert a Matrix to a Table.
Something like this:

Input file:
Capture1.PNG

Output :
Capture2.PNG

Thanks and have a nice day,
Ravi.

Try this:-
Results start "K1"

Sub MG04Jun04
Dim Rng As Range, Dn As Range
Dim c As Long
Set Rng = Range("A2:A9").Resize(, 8)
For Each Dn In Rng
    If Dn = "X" Then
        c = c + 1
        Cells(c, "K") = Cells(Dn.Row, 1)
        Cells(c, "L") = Cells(1, Dn.Column)
    End If
Next Dn
End Sub

Regards Mick

No sure why you would want to use those functions in this code, but if you look in the "VB" help you should get the information you require.
Regrds Mick

Thanks MickG

Well, actually, the input file that I have has trailing spaces and quotes that should'nt be there.
That's why I need to clean the data.

Thanks for you'r quick help Mick. Really Appreciate it.

Warm regards,
Ravi