Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to copy data from different columns in an Excel to one column
How to copy data from different columns in an Excel to one column at once.
For example if i have data spread from column A to Z spread over 100 rows. How do i bring all the values to column A. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to copy data from different columns in an Excel to one column
please select your range and run this code:
Sub concolumn() Dim arr1() As Variant Dim cnt1, cnt2, a, aa, aaa, b, bb, bbb As Integer cnt1 = 1 aa = Selection.Rows.Count bb = Selection.Columns.Count aaa = Selection.Row - 1 bbb = Selection.Column - 1 For b = 1 To bb For a = 1 To aa Cells(a + aaa, b + bbb).Select If Cells(a + aaa, b + bbb) < Empty Then ReDim Preserve arr1(cnt1) arr1(cnt1) = Cells(a + aaa, b + bbb) cnt1 = cnt1 + 1 End If Next Next For cnt2 = 1 To UBound(arr1) Cells(cnt2, 1) = arr1(cnt2) Next End Sub "Priya Gautam" wrote: How to copy data from different columns in an Excel to one column at once. For example if i have data spread from column A to Z spread over 100 rows. How do i bring all the values to column A. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I maintain columns when I copy JMP data into Excel? | Excel Discussion (Misc queries) | |||
How to Copy and Paste Several Columns of Data into Excel... ? | Excel Discussion (Misc queries) | |||
How do i copy columns of data in notepad into microsoft excel? | Excel Discussion (Misc queries) | |||
How do i copy columns of data in notepad into excel? | Excel Discussion (Misc queries) | |||
Copy Excel data content listed in 3 columns into a single column | Excel Programming |