Comment supprimer des années avec des numéros différents qui sont au milieu des phrases

Question

Dans Excel, les données suivantes, je veux des années avec des numéros différents à supprimer:

moto Honda 1983 XR350R A CAMES + VALVE

VTT Honda 1999 TRX400EX A - FOURTRAX 400EX CAMES + VALVE

de plus, je veux les données à la recherche comme les suivantes:

moto Honda XR350R A CAMES + VALVE

Honda ATV TRX400EX A - FOURTRAX 400EX CAMES + VALVE

Answer 1

Avec les données dans la colonne A, cela supprimera des années entre 1900 et 2020:

Sub YearKiller() 
    Dim r As Range, rng As Range 
    Set rng = Columns(1).SpecialCells(2) 
    For Each r In rng 
     msg = "" 
     v = r.Value 
     If InStr(1, v, " ") <> 0 Then 
      ary = Split(v, " ") 
      For i = LBound(ary) To UBound(ary) 
       a = ary(i) 
       If Len(a) = 4 And IsNumeric(a) Then 
        n = CDbl(a) 
        If n > 1900 And n < 2020 Then 
         ary(i) = " " 
        End If 
       End If 
      Next i 
      r.Value = Application.WorksheetFunction.Trim(Join(ary, " ")) 
     End If 
    Next r 
End Sub