# Consolidating 2 columns excel

*20-May-2014 22:19*

Sub Combine Columns() Dim rng As Range Dim i Col As Integer Dim last Cell As Integer Set rng = Active Cell.

Paste Destination:=Cells(last Cell, 1) last Cell = last Cell rng. key=0Au Sy DFZlc Rt Hd GJOSn Fw REot Rz Ff M28t WElp Z1Fa R2c#gid=0 Not sure if this completely helps, but I had an issue where I needed a "smart" merge.

But don't cross this feature off your list because it sounds like something you don't need.

You can also use it to quickly summarize data in a single sheet - without sorting the data.

If you use the RExcel plugin above, you can fire all of this up and run it within Excel itself.

The R community is very active and can help address any and all questions you may encounter. placed into each cell of your second workbook will retrieve the appropriate cell from the source sheet.

Select For i = 1 To rng Row Count If (Len(RTrim(Active Cell. Because it has attracted low-quality or spam answers that had to be removed, posting an answer now requires 10 reputation on this site (the association bonus does not count).

How to create dynamic named ranges Excel 2007/2010 users: Convert the ranges to excel tables and update formula references accordingly. , IFERROR(INDEX(List2, ROWS(C8:$C

Select For i = 1 To rng Row Count If (Len(RTrim(Active Cell. Because it has attracted low-quality or spam answers that had to be removed, posting an answer now requires 10 reputation on this site (the association bonus does not count).

How to create dynamic named ranges Excel 2007/2010 users: Convert the ranges to excel tables and update formula references accordingly. , IFERROR(INDEX(List2, ROWS(C8:$C$1)-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-5), "")) becomes =IFERROR(REF!

, IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "")) and becomes IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "") INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)) becomes INDEX(List2, 6-ROWS(List1)) becomes INDEX(List2, 6-5) becomes INDEX(List2, 1) equals "MM" in List 2 and so on...

Count Next i Col End Sub I created an example spreadsheet here of how to do this with simple Excel formulae, and without use of macros (you will need to make your own adjustments for getting rid of the first row, but this should be easy once you figure out how my example spreadsheet works): https://docs.google.com/a/umich.edu/spreadsheet/ccc? Private Sub Merge Project Name Columns() Dim rng Row Count As Integer Dim i As Integer 'Loop through column C and simply copy the text over to B if it is not blank rng Row Count = Range(data Range).

||Select For i = 1 To rng Row Count If (Len(RTrim(Active Cell. Because it has attracted low-quality or spam answers that had to be removed, posting an answer now requires 10 reputation on this site (the association bonus does not count).How to create dynamic named ranges Excel 2007/2010 users: Convert the ranges to excel tables and update formula references accordingly. , IFERROR(INDEX(List2, ROWS(C8:$C$1)-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-5), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "")) and becomes IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "") INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)) becomes INDEX(List2, 6-ROWS(List1)) becomes INDEX(List2, 6-5) becomes INDEX(List2, 1) equals "MM" in List 2 and so on... Count Next i Col End Sub I created an example spreadsheet here of how to do this with simple Excel formulae, and without use of macros (you will need to make your own adjustments for getting rid of the first row, but this should be easy once you figure out how my example spreadsheet works): https://docs.google.com/a/umich.edu/spreadsheet/ccc? Private Sub Merge Project Name Columns() Dim rng Row Count As Integer Dim i As Integer 'Loop through column C and simply copy the text over to B if it is not blank rng Row Count = Range(data Range).

)-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-5), "")) becomes =IFERROR(REF!, IFERROR(INDEX(List2, ROWS(C6:$C

Select For i = 1 To rng Row Count If (Len(RTrim(Active Cell. Because it has attracted low-quality or spam answers that had to be removed, posting an answer now requires 10 reputation on this site (the association bonus does not count).

How to create dynamic named ranges Excel 2007/2010 users: Convert the ranges to excel tables and update formula references accordingly. , IFERROR(INDEX(List2, ROWS(C8:$C$1)-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-5), "")) becomes =IFERROR(REF!

, IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "")) and becomes IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "") INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)) becomes INDEX(List2, 6-ROWS(List1)) becomes INDEX(List2, 6-5) becomes INDEX(List2, 1) equals "MM" in List 2 and so on...

Count Next i Col End Sub I created an example spreadsheet here of how to do this with simple Excel formulae, and without use of macros (you will need to make your own adjustments for getting rid of the first row, but this should be easy once you figure out how my example spreadsheet works): https://docs.google.com/a/umich.edu/spreadsheet/ccc? Private Sub Merge Project Name Columns() Dim rng Row Count As Integer Dim i As Integer 'Loop through column C and simply copy the text over to B if it is not blank rng Row Count = Range(data Range).

||Select For i = 1 To rng Row Count If (Len(RTrim(Active Cell. Because it has attracted low-quality or spam answers that had to be removed, posting an answer now requires 10 reputation on this site (the association bonus does not count).How to create dynamic named ranges Excel 2007/2010 users: Convert the ranges to excel tables and update formula references accordingly. , IFERROR(INDEX(List2, ROWS(C8:$C$1)-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-5), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "")) and becomes IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "") INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)) becomes INDEX(List2, 6-ROWS(List1)) becomes INDEX(List2, 6-5) becomes INDEX(List2, 1) equals "MM" in List 2 and so on... Count Next i Col End Sub I created an example spreadsheet here of how to do this with simple Excel formulae, and without use of macros (you will need to make your own adjustments for getting rid of the first row, but this should be easy once you figure out how my example spreadsheet works): https://docs.google.com/a/umich.edu/spreadsheet/ccc? Private Sub Merge Project Name Columns() Dim rng Row Count As Integer Dim i As Integer 'Loop through column C and simply copy the text over to B if it is not blank rng Row Count = Range(data Range).

)-ROWS(List1)), "")) and becomes IFERROR(INDEX(List2, ROWS(C6:$CHow to create dynamic named ranges Excel 2007/2010 users: Convert the ranges to excel tables and update formula references accordingly. , IFERROR(INDEX(List2, ROWS(C8:$C$1)-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-5), "")) becomes =IFERROR(REF!

, IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "")) and becomes IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "") INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)) becomes INDEX(List2, 6-ROWS(List1)) becomes INDEX(List2, 6-5) becomes INDEX(List2, 1) equals "MM" in List 2 and so on...

Count Next i Col End Sub I created an example spreadsheet here of how to do this with simple Excel formulae, and without use of macros (you will need to make your own adjustments for getting rid of the first row, but this should be easy once you figure out how my example spreadsheet works): https://docs.google.com/a/umich.edu/spreadsheet/ccc? Private Sub Merge Project Name Columns() Dim rng Row Count As Integer Dim i As Integer 'Loop through column C and simply copy the text over to B if it is not blank rng Row Count = Range(data Range).

||Select For i = 1 To rng Row Count If (Len(RTrim(Active Cell. Because it has attracted low-quality or spam answers that had to be removed, posting an answer now requires 10 reputation on this site (the association bonus does not count).How to create dynamic named ranges Excel 2007/2010 users: Convert the ranges to excel tables and update formula references accordingly. , IFERROR(INDEX(List2, ROWS(C8:$C$1)-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-ROWS(List1)), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, 8-5), "")) becomes =IFERROR(REF! , IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "")) and becomes IFERROR(INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)), "") INDEX(List2, ROWS(C6:$C$1)-ROWS(List1)) becomes INDEX(List2, 6-ROWS(List1)) becomes INDEX(List2, 6-5) becomes INDEX(List2, 1) equals "MM" in List 2 and so on... Count Next i Col End Sub I created an example spreadsheet here of how to do this with simple Excel formulae, and without use of macros (you will need to make your own adjustments for getting rid of the first row, but this should be easy once you figure out how my example spreadsheet works): https://docs.google.com/a/umich.edu/spreadsheet/ccc? Private Sub Merge Project Name Columns() Dim rng Row Count As Integer Dim i As Integer 'Loop through column C and simply copy the text over to B if it is not blank rng Row Count = Range(data Range).

)-ROWS(List1)), "") INDEX(List2, ROWS(C6:$CIt is based on a selection Range, which you could use to offset the first row, perhaps. Select Next i 'Now delete the unused column Columns("C"). Delete Shift:=xl To Left End Sub Thank you for your interest in this question.