Сбросьте выпадающий список после выбора нового значения

Question

что не так с кодом, который я отправил

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long

For i = 1 To 100


If Target.Address = "$C$i" Then


Range("Di:EI") = " "

End If

Next

End Sub

Answer 1

Вы были очень близки:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i As Long
    Application.EnableEvents = False
        For i = 1 To 100
            If Target.Address = "$C$" & i Then
                Range("D" & i & ":E" & i) = " "
            End If
        Next i
    Application.EnableEvents = True
End Sub

Answer 2

i - переменная, но вы не используете ее как таковую в своем коде.

Эти две строки должны выглядеть следующим образом:

If Target.Address = "$C$" & i Then


Range("D" & i & ":E" & i) = " "

таким образом, строка результата использует значение i вместо буквы i.

Я также предполагаю, что вы имели в виду Ei вместо EI (что также неверно), поэтому я также исправил это.