Supondo que iniciem em A1; em C1=se(A1=B1;"OK";DIF"), copie ou arraste para as demais

Bom dia!!

A postagem que eu respondi ontem, pode ser adaptada para seu problema dessa postagem.

Att

Bom dia!!

Veja

Option Explicit
 
Sub AleVBA_13404()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
        Range("C2").Formula = "=IF(A1=B1,""OK"",""DIF"")"
        Range("C2").AutoFill Destination:=Range("C2:C" & lastrow)
        Range("C2:C" & lastrow).Value = Range("C2:C" & lastrow).Value
    Application.ScreenUpdating = True
End Sub

Att

Bom dia,

As duas formas deram certo rsrs

na verdade eu postei isso para entender melhor como adaptar a formula que você me ajudou anteriormente Alexandre rsrs pois sou muito leigo...

eu estava tentando fazer assim =se(a1=b1;"OK") mais não sabia uma formula que fosse o contrario do "=" mais agora vi que basta completar =se(a1=b1;"OK";"DIF")

Enfim Obrigado novamente =)

Bom dia!!

Tente entender agora..

Option Explicit

Sub AleVBA_13404()
    Dim lastrow As Long 'Istancia a vaiável lastrow como tipo long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row 'Encontra a ultima linha
    Application.ScreenUpdating = False 'Para a tela
        Range("C2").Formula = "=IF(A1=B1,""OK"",""DIF"")" 'Inseri a formula em C2
        Range("C2").AutoFill Destination:=Range("C2:C" & lastrow) 'Arrasta a formula até a ultima linha
        Range("C2:C" & lastrow).Value = Range("C2:C" & lastrow).Value 'Copia e cola valores
    Application.ScreenUpdating = True 'Ativa a tela
End Sub

att

Bom dia!!

a ultima célula povoada da coluna A!

Se tem dados de de A1 até A50 o VBA armazena esse intervalo!

Att

A entendi vlw mesmo =)