如何去除句子中不同数字的年份

在Excel中，对于以下数据，我希望删除具有不同数字的年份：

本田摩托车1983 XR350R CAMSHAFT +阀门

本田ATV 1999 TRX400EX A – FOURTRAX 400EX凸轮轴+阀门

而且，我希望数据如下所示：

本田摩托车XR350R CAMSHAFT +阀门

本田ATV TRX400EX A – FOURTRAX 400EX凸轮轴+阀门

Answer 1

有了A栏中的数据，这将消除1900年至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