View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.misc
CLR CLR is offline
external usenet poster
 
Posts: 1,998
Default Combining data from two columns

This will get the data from column A on Sheet2 and column B on Sheet3 and
paste it all in column C on sheet1...........

Sub CombineColumns()
'This macro will clear the contents of column C, then
'copy the values from column A to column C, and then
'append the values in column B to the bottom of that list in column C
Worksheets("sheet1").Select 'The sheet where you want the results
Range("c:c").ClearContents
Worksheets("sheet2").Select 'The sheet where column A data is
Range("A1:" & Range("A65536").End(xlUp).Address).Select
Selection.Copy
Worksheets("sheet1").Select 'Go back to paste the data
Range("C1").Select
ActiveSheet.Paste
Worksheets("sheet3").Select 'the sheet where column B data is
Range("B1:" & Range("B65536").End(xlUp).Address).Select
Selection.Copy
Worksheets("sheet1").Select 'go back to paste the data
Range("C65536").End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Range("c1").Select
End Sub

hth
Vaya con Dios,
Chuck, CABGx3




"dziw" wrote:


Thanks alot. It works.

I'm not really familiar with coding, so how would I change the
references if I'm referring to column A in another worksheet.


--
dziw
------------------------------------------------------------------------
dziw's Profile: http://www.excelforum.com/member.php...o&userid=10422
View this thread: http://www.excelforum.com/showthread...hreadid=567563