How to copy columns to a specific column header and repeat?
Solved/Closed
stylus33
stylus33
- Posts
- 2
- Registration date
- Friday October 13, 2017
- Status
- Member
- Last seen
- November 10, 2017
stylus33
- Posts
- 2
- Registration date
- Friday October 13, 2017
- Status
- Member
- Last seen
- November 10, 2017
Related:
- How to copy columns to a specific column header and repeat?
- Excel change column headers to numbers - Guide
- Need to delete columns based on Column header ✓ - Forum - Excel
- Excel vba sort by column header name ✓ - Forum - Excel
- Excel macro find column header and copy column - Forum - Excel
- Excel - Copy a range if the a specific column is blank - How-To - Excel
1 reply
TrowaD
Oct 16, 2017 at 11:48 AM
- Posts
- 2880
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- May 2, 2022
Oct 16, 2017 at 11:48 AM
Hi Stylus,
The following code will help you out:
Best regards,
Trowa
The following code will help you out:
Sub RunMe() Dim lCol, x As Integer lCol = Cells(1, Columns.Count).End(xlToLeft).Column For x = 2 To lCol ActiveSheet.UsedRange.Columns(x).Cut _ Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) Next x End Sub
Best regards,
Trowa
Nov 10, 2017 at 12:42 AM