Помогите извлечь первые 4 цифры, идущие подряд в ячейке (год). Файл с примером, как должно получится, прилагаю. Желательно формулой, но если нет, то и макрос можно.
Function iYear(cell As String)
With CreateObject("VBScript.RegExp")
.Pattern = "\d{4}"
If .Test(cell) Then
iYear = .Execute(cell)(0)
Else
iYear = "данные уточняются"
End If
End With
End Function