Как удалить и сохранить определенное значение в ячейке на основе значения определенной ячейки?

Question

Как сделать VB-код для удаления содержимого столбца B, когда я ввел определенное значение в столбце A? Пример: если ячейка A1 = яблоко, ячейка B1 должна удалить любое значение, которое у нее есть. Но если ячейка A1 = виноградная, ячейка B1 должна сохранять любое значение, которое она имеет.

Answer 1

Небольшие вариации этого вопроса повсюду в Интернете.

Этот пример взят по ссылке ниже с минимальными изменениями

пример

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