Copy and paste to the last Row of columb A
in [General]
|
From: tran1728 on 5 May 2010 03:16 Good morning, pls help me, A B 9800 =A1*2 9800 9800 9800 9800 I want copy formula B1 and Paste B2 to ....., stop a t the last row of A. Thanks
From: ozgrid.com on 5 May 2010 03:20 Double click the Fill Handle of B1 when you have it selected. http://www.ozgrid.com/Excel/excel-fill-handle.htm -- Regards Dave Hawley www.ozgrid.com "tran1728" <tran1728(a)discussions.microsoft.com> wrote in message news:1F64F54A-C091-4BD3-88C1-E64761AC569F(a)microsoft.com... > Good morning, pls help me, > > A B > 9800 =A1*2 > 9800 > 9800 > 9800 > 9800 > > I want copy formula B1 and Paste B2 to ....., stop a t the last row of A. > > Thanks >
From: Asraf on 5 May 2010 03:42 Hello tran1728 you can try this. Sub MacroCopy_paste() Range("B1").Select Application.CutCopyMode = False Selection.Copy Range("A1").Select Selection.End(xlDown).Select Cells(ActiveCell.Row, ActiveCell.Column + 1).Select Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste End Sub -Asraf "tran1728" wrote: > Good morning, pls help me, > > A B > 9800 =A1*2 > 9800 > 9800 > 9800 > 9800 > > I want copy formula B1 and Paste B2 to ....., stop a t the last row of A. > > Thanks >
From: Jacob Skaria on 5 May 2010 03:51 Hi Asraf I dont think the OP is looking for a macro. However; to your response..you dont need to select the cell. You can try out the below two solutions ()... Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = _ Range("B1").Formula OR use the Autofill method as below Range("B1").AutoFill Destination:=Range("B1:B" & _ Cells(Rows.Count, "A").End(xlUp).Row) -- Jacob (MVP - Excel) "Asraf" wrote: > Hello tran1728 > > you can try this. > > Sub MacroCopy_paste() > > Range("B1").Select > Application.CutCopyMode = False > Selection.Copy > Range("A1").Select > Selection.End(xlDown).Select > > Cells(ActiveCell.Row, ActiveCell.Column + 1).Select > Range(Selection, Selection.End(xlUp)).Select > ActiveSheet.Paste > > > End Sub > > -Asraf > > > "tran1728" wrote: > > > Good morning, pls help me, > > > > A B > > 9800 =A1*2 > > 9800 > > 9800 > > 9800 > > 9800 > > > > I want copy formula B1 and Paste B2 to ....., stop a t the last row of A. > > > > Thanks > >
From: Asraf on 5 May 2010 04:02
AutoFill Destination... yeahh.. new lesson for my macro.. thanks jacob. "Jacob Skaria" wrote: > Hi Asraf > > I dont think the OP is looking for a macro. However; to your response..you > dont need to select the cell. You can try out the below two solutions ()... > > Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = _ > Range("B1").Formula > > OR use the Autofill method as below > > Range("B1").AutoFill Destination:=Range("B1:B" & _ > Cells(Rows.Count, "A").End(xlUp).Row) > > > > -- > Jacob (MVP - Excel) > > > "Asraf" wrote: > > > Hello tran1728 > > > > you can try this. > > > > Sub MacroCopy_paste() > > > > Range("B1").Select > > Application.CutCopyMode = False > > Selection.Copy > > Range("A1").Select > > Selection.End(xlDown).Select > > > > Cells(ActiveCell.Row, ActiveCell.Column + 1).Select > > Range(Selection, Selection.End(xlUp)).Select > > ActiveSheet.Paste > > > > > > End Sub > > > > -Asraf > > > > > > "tran1728" wrote: > > > > > Good morning, pls help me, > > > > > > A B > > > 9800 =A1*2 > > > 9800 > > > 9800 > > > 9800 > > > 9800 > > > > > > I want copy formula B1 and Paste B2 to ....., stop a t the last row of A. > > > > > > Thanks > > > |