VBA, daha sonra

Question

ifadesi için gerekli bir VBA sorunum var. Yeni bir sütunda A> = B, sonra 0 B-A olsun demek istediğim bir If ifadesi yazmak istiyorum. ve bunu son sıraya kadar tekrarlamak istiyorum. Herkes bu

Answer 1

üzerine bana yardımcı olabilir ne dersiniz:

Sub qwerty() 
    Dim N As Long, r As Range 

    N = Cells(Rows.Count, "A").End(xlUp).Row 
    Set r = Range("C1:C" & N) 
    r.Formula = "=IF(A1>=B1,0,B1-A1)" 
End Sub