Como excluir e reter um valor específico em uma célula com base no valor de uma determinada célula?

Question

Como fazer um código vb para excluir o conteúdo da coluna B quando eu inseri um valor específico na coluna A? Exemplo: Se a célula A1 = apple, a célula B1 deve excluir qualquer valor que tenha. Mas se a célula A1 = uva, a célula B1 deve reter qualquer valor que tenha.

    

Answer 1

Ligeiras variações desta questão estão por toda a internet.

Este exemplo é retirado do link abaixo com alterações mínimas

Exemplo

Sub test()
Dim LastRow As Long
LastRow = range("A65536").End(xlUp).Row
For i = 1 To LastRow
If range("A" & i) = "apple" Then
    With range("B" & i)
        .ClearContents
        .FormatConditions.Delete
    End With
End If
Next i
End Sub