Quickest way to copy formulas down several rows?

Larry · Apr 17th, 2002, 07:24 AM

I know there has to be a faster way to copy formulas down thousands of rows rather than click and drag.

Any suggestions???

jrnyman · Apr 17th, 2002, 07:31 AM

You could use a macro that asks for the first and last cells and fills them automatically. Something like:

Sub FillMe()
Dim LastRow As String
FirstCell = Application.InputBox("What is the cell you want to copy?")
LastCell = Application.InputBox("What is the last cell you want filled?")
Range(FirstCell).Select
Range(FirstCell).Copy
Range(FirstCell).AutoFill Destination:=Range(FirstCell & ":" & LastCell), Type:=xlFillDefault
End Sub

If you use it enough, just add a button for it to your toolbar for easy access.

cpod · Apr 17th, 2002, 10:15 AM

Just double click on the dragdown box at the lower right side of the cell. That will copy down to the bottom of the used range.

[ This Message was edited by: cpod on 2002-04-17 09:18 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 17th, 2002, 07:24 AM	#1
Larry New Member Join Date: Apr 2002 Location: Plano, Texas Posts: 29	I know there has to be a faster way to copy formulas down thousands of rows rather than click and drag. Any suggestions???

Apr 17th, 2002, 07:31 AM	#2
jrnyman Board Regular Join Date: Mar 2002 Location: Boston, MA Posts: 105	You could use a macro that asks for the first and last cells and fills them automatically. Something like: Sub FillMe() Dim LastRow As String FirstCell = Application.InputBox("What is the cell you want to copy?") LastCell = Application.InputBox("What is the last cell you want filled?") Range(FirstCell).Select Range(FirstCell).Copy Range(FirstCell).AutoFill Destination:=Range(FirstCell & ":" & LastCell), Type:=xlFillDefault End Sub If you use it enough, just add a button for it to your toolbar for easy access.

Apr 17th, 2002, 10:15 AM	#3
cpod Board Regular Join Date: Apr 2002 Posts: 124	Just double click on the dragdown box at the lower right side of the cell. That will copy down to the bottom of the used range. [ This Message was edited by: cpod on 2002-04-17 09:18 ]