Динамически фильтровать год, который также содержит текст

Question

Столбец Q, который я пытаюсь отфильтровать, имеет категорию с именем 2018 Complete, представленную как string .Я искал ответы, чтобы посмотреть, как я могу отфильтровать 2018 Complete, если бы я был в 2019 и 2019 Complete, если бы я был в 2020.Я сделал код, но он не работает.Есть ли способ сделать его более динамичным, поэтому, если бы я присутствовал в каком-либо другом году, я все еще мог бы использовать его?

With Sheets("Valve List")
    .AutoFilterMode = False
    .Range("Q1").AutoFilter Field:=17, Criteria1:=" & Year(Date) - 1 & " & "Complete"
End With

Код работает отлично, если я использую его только с текстом:

.Range("Q1").AutoFilter Field:=17, Criteria1:="2018 Complete"

Answer 1

Установите критерии на

With Sheets("Valve List")
    .AutoFilterMode = False
    .Range("Q1").AutoFilter Field:=17, Criteria1:= Year(date) -1 & " Complete"
End With