Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

how to make a table to row column

2 réponses
Avatar
nader
Hi,
I have a really big table with date as heading :

People 11/07 12/07 13/07
john 1 2 5
wolf 5 4 7


how can I make to be seen as:


People Date Number
john 11/07 1
john 12/07 2
john 13/07 5
wolf 11/07 5
wolf 12/07 4
wolf 13/07 7


the spreadsheet is to long so it is not possible to do it by copy and
paste, I also want to keep the link
anybody can help?
I really appreciate that
thanks
Nader

2 réponses

Avatar
JB
Hello!

http://cjoint.com/?bwwQXMtPYF

Sub essai()
ligne = 2
For i = 2 To [a65000].End(xlUp).Row
For k = 2 To [iv1].End(xlToLeft).Column
Sheets(2).Cells(ligne, 1) = Sheets(1).Cells(i, 1)
Sheets(2).Cells(ligne, 2) = Sheets(1).Cells(1, k)
Sheets(2).Cells(ligne, 3) = Sheets(1).Cells(i, k)
ligne = ligne + 1
Next k
Next i
End Sub

Cordialy JB
Hi,
I have a really big table with date as heading :

People 11/07 12/07 13/07
john 1 2 5
wolf 5 4 7


how can I make to be seen as:


People Date Number
john 11/07 1
john 12/07 2
john 13/07 5
wolf 11/07 5
wolf 12/07 4
wolf 13/07 7


the spreadsheet is to long so it is not possible to do it by copy and
paste, I also want to keep the link
anybody can help?
I really appreciate that
thanks
Nader


Avatar
nader
merci beaucoup, Cordialy
I appriciate that
Regards
Nader

JB wrote:
Hello!

http://cjoint.com/?bwwQXMtPYF

Sub essai()
ligne = 2
For i = 2 To [a65000].End(xlUp).Row
For k = 2 To [iv1].End(xlToLeft).Column
Sheets(2).Cells(ligne, 1) = Sheets(1).Cells(i, 1)
Sheets(2).Cells(ligne, 2) = Sheets(1).Cells(1, k)
Sheets(2).Cells(ligne, 3) = Sheets(1).Cells(i, k)
ligne = ligne + 1
Next k
Next i
End Sub

Cordialy JB
Hi,
I have a really big table with date as heading :

People 11/07 12/07 13/07
john 1 2 5
wolf 5 4 7


how can I make to be seen as:


People Date Number
john 11/07 1
john 12/07 2
john 13/07 5
wolf 11/07 5
wolf 12/07 4
wolf 13/07 7


the spreadsheet is to long so it is not possible to do it by copy and
paste, I also want to keep the link
anybody can help?
I really appreciate that
thanks
Nader