Question

我正在尝试创建VBA，以便允许我复制一个单元格并将其粘贴到同一列中的行末。但是我无法弄清楚它是如何工作的，我总共有109行，其中有20列，在“ BD”列中是一个空列，我想输入今天的日期，并填写同一列的其余部分直到结束行。

请查看底部的代码

Sub CopyInsert()

    Range("BD2").Select

    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("BD2").Select
    Selection.Copy
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveSheet.Paste
End Sub

此代码可以正常工作，但我没有得到正确的结果，这些代码的作用是复制并粘贴超过109行，这意味着最多粘贴约2000行我的问题是如何复制并粘贴到行尾（如直到第109行）！如果我们有200行以上，如何复制和粘贴到行末，即一列中的200行！但是我没有尝试使用（BD2：BD），而是尝试了（BD2：BD），并且粘贴到109行以上的行并没有在行尾停止。

非常感谢。

Answer 1

因此，您需要根据实际数据所在的列查找lastRow ...

尝试这样的事情：

With worksheets("mySheet")

    Dim lastRow as Long
    lastRow = .Cells(.Rows.Count,1).End(xlUp).Row 'this uses column A for example

    .Range("BD2:BD" & lastRow).Formula = "=TODAY()"

End With

如何将值设为整数VBA

1 个答案: