У меня есть длинный список данных, например. 5000 строк, некоторые уже заполнены данными, некоторые пустые, я хочу добавить формулу в пустые ячейки, у меня ниже коды vba, но проблема в формуле с фиксированным номером строки, т.е. E3435, как я могу заменить его кодом vba, если мне нужно добавить формулу на основе другого номера строки? Спасибо
Sub FillInBlanks()
Dim rng As RANGE, cell As RANGE
Set rng = ActiveSheet.RANGE("c3:A4133")
For Each cell In rng
If IsEmpty(cell) Then
cell.formula = "=DATE(YEAR(E3435),MONTH(E3435),DAY(E3435))"
End If
Next cell
End Sub
