[a_axe]

Avatar-Lion, стандартными средствами такое в лоб не получить, а вы не хотите поместить в VBA редакторе в код нужного листа код наподобие такого:

Скрытый текст

Код:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Columns.Item(2)) Is Nothing Then
Debug.Print VarType(Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value)
    If VarType(Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value) = 8 Then
        Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value = UCase(Left(Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value, 1)) & Mid(Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value, 2)
    End If
    
End If
End Sub

Создавать регулярку большого смысла не вижу, скорее всего это будет дольше по времени.