Columns to Rows..?

[GFP1963]

Given data prepared as in the attached spreadsheet

Given a sheeet with Column A of values (say names) with corresponding columns B, C, D, etc. containing values relevant to row A,
how would you created additional rows for the names in Column A, 1 each for each value in columns B, C, D, etc.

<style>table { }td { padding-top: 1px; padding-right: 1px; padding-left: 1px; color: black; font-size: 12pt; font-weight: 400; font-style: normal; text-decoration: none; font-family: Calibri, sans-serif; vertical-align: bottom; border: medium none; white-space: nowrap; }.xl63 { color: white; font-size: 10pt; font-weight: 700; font-family: Calibri; text-align: left; background: black none repeat scroll 0% 0%; }.xl64 { font-size: 10pt; font-weight: 700; font-family: Calibri; }.xl65 { font-size: 10pt; font-weight: 700; font-family: Calibri; text-align: left; }.xl66 { font-size: 10pt; font-family: Calibri; }.xl67 { color: black; font-size: 10pt; font-family: Calibri; }.xl68 { color: white; font-size: 10pt; font-weight: 700; font-family: Calibri; background: black none repeat scroll 0% 0%; }.xl69 { color: white; font-size: 10pt; font-family: Calibri; background: black none repeat scroll 0% 0%; }</style>

GIVEN THIS
NAME	E1	E2	e3	e4	e5
Sullivan	sullivan1	sullivan2	sullivan3	sullivan4	sullivan5
Rodríguez	rodriguesz1	rodriguez2	rodriguez3	rodriguez4	rodriguez5
Burns	burns1	burns1	burns3	burns4	burns5
END UP WITH THIS
Sullivan	sullivan1
Sullivan	sullivan2
Sullivan	sullivan3
Sullivan	sullivan4
Sullivan	sullivan5
Rodríguez	rodriguesz1
Rodríguez	rodriguesz2
Rodríguez	rodriguesz3
Rodríguez	rodriguesz4
Rodríguez	rodriguesz5
Burns	burns1
Burns	burns2
Burns	burns3
Burns	burns4
Burns	burns5

<tbody>
</tbody>

 

[GFP1963]

Thank you very much for the suggestion however, as I mentioned earlier in this thread, i am pretty much an excel novice and do not really understand how to implement the code you have posted. Is it possible you could add it to a sheet with instructions on how to use it like Virici had done for me earlier? His sample works. I "just" need to expand the number of columns it will repeat as common row data, for lack of a better explanation.

 

[jolivanes]

https://www.rondebruin.nl/win/code.htm

Your data needs to start at Cell A1 which means that "First Name" is in cell A1, "Roy" in cell A2, "Maria" in cell A3 etc etc.
"Last Name" will be in cell B1, "Company Name" in cell C1, "E1" in cell D1 etc etc
All this data can be in any sheet but the result will go to "Sheet2".
Sheet2 should therefor be empty.
You can expand your data as much as you want, Rows and/or Columns
Read Ron's explanation and you should be on your way
Run the code and let us know what needs to change or be added.

 

[jolivanes]

The code in Post #10 is meant for your example in Post #5 .

 

[GFP1963]

Yeah - I don't know what I am doing. And I am using Mac version of excel. The 'for dummies' links are not really helping.
I appreciate your help. Unless you could provide me with a pre-prepared file with the code/macro in DropBox or someplace I am not going to get anywhere. I could even message you my email address, if there is a way to do that here.

I tried just replacing the code in the original file provided by Virici (post #4 ) but am getting an error.

 

[jolivanes]

If you provide me with an email address via private message I'll email a file.

 

[GFP1963]

Just PM'd you. Thanks!

 

[jolivanes]

2 Workbooks are in cyberspace on the way to you.
For those interested, this is the my suggestion for the example in Post #8

Sub AAAAB()
Dim lr As Long, E1col As Long, sh2 As Worksheet, sh1 As Worksheet, lc As Long, i As Long, j As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
E1col = Cells(1, 1).EntireRow.Find("E1", , , 1, xlByColumns, xlPrevious).Column
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
Application.ScreenUpdating = False
sh2.UsedRange.ClearContents
sh1.Range(Cells(1, 1), sh1.Cells(1, E1col)).Copy sh2.Range("A1")
    For i = 2 To lr
        lc = Cells(i, Columns.Count).End(xlToLeft).Column
            With sh2.Cells(Rows.Count, E1col).End(xlUp).Offset(1).Resize(lc - (E1col - 1))
                .Value = Application.Transpose(Range(Cells(i, E1col), Cells(i, lc)).Value)
                    For j = 1 To E1col - 1
                        .Offset(, -j).Value = Cells(i, E1col - j).Value
                    Next j
            End With
    Next i
Application.ScreenUpdating = True
End Sub

 

[GFP1963]

I think I love you.

Thank you so much.

 

[jolivanes]

Re: I think I love you
Don't go too far now but I think I know what you mean. At least I hope so.
Glad it all worked as requested.
Good Luck