VBA 如何获取单元格, 引用变量会报 错

灵飞影5568

老师们 请指教一下, 要怎么写才会正确, 谢 谢!

Sub nn()

    Dim x, y

    x = Range("B65536").End(3).Row

    y = Range("b" & Cells(Rows.Count, 1).End(xlUp).Row + 3).Select

    Cells(4, 2).Select

    ActiveCell.FormulaR1C1 = "1"

    Selection.AutoFill Destination:=Range("B" & y & ":B" & x), Type:=xlFillSeries

End Sub

松永

Sub nn()

    Dim x, y

    x = Range("B65536").End(3).Row

    y = Range("b" & Cells(Rows.Count, 1).End(xlUp).Row + 3).Row

    Cells(4, 2).Select

    ActiveCell.FormulaR1C1 = "1"

    Selection.AutoFill Destination:=Range("B" & y & ":B" & x), Type:=xlFillSeries       'y应为数值，而不是true

End Sub

松永

Sub nn()      Dim x, y      x = Range("B65536").End(3).Row      y = Range("b" & Cells(Rows.Count, 1).End(xlUp).Row + 3).Row      Cells(4, 2).Select      ActiveCell.FormulaR1C1 = "1"      Selection.AutoFill Destination:=Range("B" & y & ":B" & x), Type:=xlFillSeries   'y应为数值，而不是true   End Sub

jy03342543

变量Y赋值改成正整数

灵飞影5568

感谢各们老师解答,受教.谢谢

灵飞影5568

松永 发表于 2024-1-10 15:37
Sub nn()

    Dim x, y

谢谢指点