1004全局錯誤-Excel VBA

Question

我的代碼不起作用。 我想在宏中執行A2 + 1 = A3 ，但是當我嘗試使用p作為整數時，它給了我1004 Global Error 。 如何在Excel VBA中執行(n,1) A2 + 1 = A3 ？

Sub agregarproducto()

Range("A7:G7").Select
Range("G7").Activate
Selection.Copy

Dim p As Integer

p = 0
p = Range("A2:A50").Count
p = p + 1

Range(p, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

    Range("E2:E3").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("L11").Select
    ActiveCell.FormulaR1C1 = "1"

End Sub

Answer 1

更改

Range(p, 1).Select

至

Cells(p, 1).select