通过将活动单元格的范围提供给列的最后一行来显示自动填充命令范围中的错误

Posted 2023-02-24

【中文标题】通过将活动单元格的范围提供给列的最后一行来显示自动填充命令范围中的错误

【英文标题】：Showing Error in Range of Auto fill command by giving range of Active cell to Last row of the column

【发布时间】：2020-04-18 08:04:14

【问题描述】：

我正面临这个问题，我只想在用户表单文本框中输入数据，并且该值必须从行自动填充到 B 列的最后一行。使用此代码时，我的范围从活动单元格到列的最后一行。找到代码范围的最后一行。请发出这个问题。

Private Sub CommandButton2_Click()

Dim irow As Long
Dim activeworksheet As Worksheet
Dim lastrow As Long


    irow = ActiveWorkbook.Worksheets("Master sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1

    lastrow = Cells(Cells.Rows.Count, "B").End(xlUp).Row

    Set activeworksheet = ThisWorkbook.Worksheets("master sheet")

    With activeworksheet

    .Cells(irow, 1) = UserForm1.TextBox1.Value

    .Cells(irow, 1).Select

    Selection.range(range("Activecell"), range("A" & Cells(Rows.Count, "B").End(xlUp).Row)).FillDown


    End With

End Sub

【参考方案1】：

你需要的只是这个吗？不确定我是否完全理解。

With activeworksheet
    Range(.Cells(irow, 1), .Cells(lastrow, 1)).Value = UserForm1.TextBox1.Value
End With

【讨论】：

我需要上述命令的自动填充范围，错误显示在代码的最后一行。对于 activecell 到 lastrow 先生的范围

为什么需要自动填充，这一行也做同样的事情？

那行不工作，我检查了，我需要上传文本框中的值，这样每次它都会存储在该列中，我已经在下一个列上有数据，所以它需要填写输入的活动单元格的列的最后一行..所以这段代码将连续运行..现在我需要一个范围命令来填充，以便从活动单元格填充到最后一行