Sub test
Dim BR As Long
BR = Range(“B” & Rows.Count).End(xlUp).Row
Range(“A4”).Formula =“=if(F4>datevalue(“3/29/2019”),”New”,””)”
Range(“A4”).Copy
Range(“A4:A” & BR).PasteSpecial xlPasteAll
End sub
Я понимаю, что формула не будет работать, потому что она заканчивает оператор первыми скобками, но я не могу понять, как сделать эту формулу в vba.Если бы вы могли помочь, я был бы очень признателен.