Copy rows and paste in a single column
Closed
saurabh
-
Oct 3, 2011 at 10:31 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Oct 4, 2011 at 05:36 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Oct 4, 2011 at 05:36 AM
Related:
- Copy rows and paste in a single column
- Which key is used to make multiple line in a single cell - Guide
- How to paste photo in word - Guide
- Vba find column by name ✓ - Excel Forum
- Auto serial number in excel based on another column ✓ - Excel Forum
- How to paste data in alternate rows in excel - Excel Forum
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Oct 4, 2011 at 05:36 AM
Oct 4, 2011 at 05:36 AM
try this macro
Sub test() Dim j As Long With Worksheets("sheet1") For j = 1 To .Range("A1").End(xlDown).Row Range(.Cells(j, 1), .Cells(j, 1).End(xlToRight)).Copy With Worksheets("sheet2") .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True End With Next j End With With Worksheets("sheet2") .Range("A1").EntireColumn.AutoFit End With End Sub
Sub undo() Worksheets("sheet2").Cells.Clear End Sub