VBA Copying multiple Columns to 1 column??
Solved/Closed
weenie
Posts
9
Registration date
Saturday July 3, 2010
Status
Member
Last seen
May 5, 2016
-
Jul 9, 2010 at 01:26 PM
sunilmkhr - Jul 16, 2010 at 05:32 AM
sunilmkhr - Jul 16, 2010 at 05:32 AM
Related:
- Vba copy multiple columns
- Vba case like - Guide
- Allow multiple downloads chrome - Guide
- Number to words in excel formula without vba - Guide
- How to delete multiple files on mac - Guide
- Photoshop multiple selections - Guide
1 response
<code><code><code>Hi Try the below one. if you have column headings then change value of n i.e. n=2</code></code></code>sub sunilmkhr()
sheets("sheet1").cells(1,1).select
Selection.End(xlDown).Select
Activecell.offset(1,0).select
C= Activecell.Address
B=2
n=1
Do until D=""
sheets("sheet1").cells(n,B).select
range(selection, (selection.End(xlDown).select)
selection.copy
range(C).select
Activesheet.paste
Selection.End(xlDown).Select
Activecell.offset(1,0).select
C= Activecell.Address
B=B+1
D=sheets("sheet1").cells(n,B).value
loop
end sub
Jul 15, 2010 at 09:19 AM
Jul 16, 2010 at 05:32 AM