Back to Blog
In the drop-down menu, (2) click on Paste Special, then (3) choose to Paste transposed. To begin, pick the data and copy it using Ctrl + C. After that, (1) choose a cell where you want to paste the selected data range and right-click. You can (Copy the data range and) convert horizontal data to vertically excel in 3 ways. Wop.Range("A" & Wrow & ":B" & Wrow + (k - 4)).Value = Ws.Range(Ws.Cells(i, 1), Ws.Cells(i, 2)). Select the data you want to paste vertically, right-click it and then click on Copy (or use the CTRL + C shortcut). When the small box appears with the PasteSpecial options, click the words Paste Special at the bottom of the box and a new option box will appear with the Transpose option shown. Select a cell where you want your new data to be inserted to. Wop.Range("C" & Wrow + (k - 3)).Value = Ws.Cells(i, k).Value the transpose option is available in the manual mode for PasteSpecial. 'Only change at the first try, to write on first row Wrow = Wop.Range("A" & ).End(xlUp).Row + 1 This will scan the sheet call "Sheet1" and output the result in the sheet called "sheet2", I've marked where to change these names so you can decline it for your need : Sub NeferZhang()įor i = 1 To Ws.Range("A" & Ws.Rows.Count).End(xlUp).Rowįor k = 3 To Ws.Range("A" & i).End(xlToRight).Column
0 Comments
Read More
Leave a Reply. |