从特定的工作表和单元格复制公式，并将其向下拖动直到特定列的最后一行

Question

So far I have this code below; counting last cell is working fine but is copy/pasting the wrong data to wrong sheet. Should copy data and use the formula from Sheet "Parsing" cell B2, and its using the main sheet where is the VBA. Looks lile what is missing is to execute the copy/select to "parsing" sheet, but didnt manage to do it.

Sub drag_formula_original()

Dim myLastRow As Long
With Worksheets("Parsing")



myLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

.Range("B2").Copy Destination:=.Range("B2:B" & myLastRow)
Application.CutCopyMode = False

End With
End Sub

Its solved. Thanks a lot.

Answer 1

Range("B2").Copy 

The above will grab by default from the Activesheet

you have to tell it what sheet you would like it to pick that range/value from.

sheets("Parsing").Range("B2").Copy 

Edit: Just noticed your With

To actually use a with you need to use a "." eg your copy line would look like below

.Range("B2").Copy 

One other thing to note this:

Range("B2:B" & myLastRow).Select
ActiveSheet.Paste

Is rather inefficient, below would be better. Selecting in general is best to keep away from it is rather slow

 Range("B2:B" & myLastRow).Paste

Or with your with

.Range("B2:B" & myLastRow).Paste

Answer 2

I just copied and pasted your code and ran it. I changed nothing in your code except for adding "Option Explicit" before your sub. (Just a personal habit)

Option Explicit
Sub drag_formula_original()

Dim myLastRow As Long
With Worksheets("Parsing")

myLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

Range("B2").Copy
Range("B2:B" & myLastRow).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End With
End Sub

I did, however, use a very simple formula in cell B2. What I did was have column A go from 1 to 10 and column C go from 11 to 20. Cell B2 was =A2+C2. After running the code I checked each cell in column B and they each had the correct formula in them, and not a hard-coded value.

A trick I do when I want to do something like this but can't figure out how is I record a macro of me dragging the cell formula down a little ways and then stop the recording and look at the code it made. From that you should be able to adjust it to do what you want.

When I did that I got this code:

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B15"), Type:=xlFillDefault
    Range("B2:B15").Select
End Sub