Ask a question Report

How to copy columns to a specific column header and repeat? [Solved]

stylus33 2 Posts Friday October 13, 2017Registration date November 10, 2017 Last seen - Oct 13, 2017 at 05:34 PM - Latest reply: stylus33 2 Posts Friday October 13, 2017Registration date November 10, 2017 Last seen

- Nov 10, 2017 at 12:42 AM

Excel Ask a question Report

Hello all, am new to using macros in excel. i have data and i want to be able to columns and paste it under some specific columns repeatedly.

Example
column A Column B Column C ColumD
1 2 1 5
2 1 1 2
3 2 1 2

I want to obtain a result where like example column B, Column C and Column D are all pasted under Column A

Result should look like this

Column A
1
2
3
2
1
2
1
1
1
5
2
2

the problem is the columns are soo many i want to automate it. I am new to programming any help.

Thanks

Your reply

Reply to this topic

2 replies

Report Respond to TrowaD

TrowaD 2355 Posts Sunday September 12, 2010Registration dateModeratorStatus May 17, 2018 Last seen - Oct 16, 2017 at 11:48 AM

Helpful

Hi Stylus,

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

Report Respond to stylus33

stylus33 2 Posts Friday October 13, 2017Registration date November 10, 2017 Last seen - Nov 10, 2017 at 12:42 AM

Thanks buddy..it works

Your reply

Reply to this topic

Ask a question