Change horizontal data into vertical data

Clearly, you can picture what the data looks like now and how you would like to see it. Unfortunately, we cannot.

It would help us all if you uploaded a sample workbook with before and after views.

Regards, TMS

Sure, why dont you upload a sample file?

To Attach a File:

1. Click on Go Advanced
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.

Sorry TMS. Didnt refresh the screen.

You may be looking for a formula solution, however if you need VBA, here is a code that you can use -

Option Explicit

Sub create_format()
Dim ws As Worksheet
Dim lrow As Long, lcol As Long, i As Long, j As Long, lastrow As Long

Application.ScreenUpdating = False

Set ws = Worksheets("Sheet2")
With Worksheets("Sheet1")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    lcol = .Range("IV1").End(xlToLeft).Column
    For i = 2 To lrow
        For j = 2 To lcol
            lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row
            ws.Range("A" & lastrow + 1).Value = .Cells(i, 1).Value
            ws.Range("B" & lastrow + 1).Value = .Cells(i, j).Value
            ws.Range("C" & lastrow + 1).Value = .Cells(1, j).Value
        Next j
    Next i
End With

ws.Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

Try the above code (post 7) and let me know if you face any issues.

Np at all.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

I will do it for you this time.