Excel VBA Макрос для автозаполнения (ie. Filldown) ПОСЛЕ последней строки до следующей пустой строки? - PullRequest
0 голосов
/ 06 января 2020

У меня есть данные, которые мне требуются для обратного отсчета по строкам. Проблема заключается в том, что столбец данных (столбец A) содержит как буквы, так и цифры (согласно рисунку). Image 1

Я подумал, что самый простой способ обойти это, используя либо функцию заполнения, либо автозаполнения. По сути: найдите конец данных и заполните следующую пустую ячейку в строке ниже.

В настоящее время мой код VBA выглядит следующим образом:

    Dim LastRow, currentCol As Long
    currentCol = 1 'change to whatever row you want to work with
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, currentCol).End(xlDown).Row
    End With

    Cells(LastRow, currentCol).AutoFill Destination:=Range(Cells(LastRow, currentCol), Cells(LastRow, currentCol).Offset(1, 0)), Type:=xlFillDefault

End Sub

Если у вас есть какие-либо исправления или альтернативы, я был бы очень признателен за помощь.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...