У меня есть данные, которые мне требуются для обратного отсчета по строкам. Проблема заключается в том, что столбец данных (столбец A) содержит как буквы, так и цифры (согласно рисунку).
Я подумал, что самый простой способ обойти это, используя либо функцию заполнения, либо автозаполнения. По сути: найдите конец данных и заполните следующую пустую ячейку в строке ниже.
В настоящее время мой код 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
Если у вас есть какие-либо исправления или альтернативы, я был бы очень признателен за помощь.