как оценить в целое число VBA

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