Поиск по ячейке

[Ast4]

Добры день Профи!

Нужна помощь, необходимо организовать поиск в одном столбце в каждой ячейке наличие первой буквы и замены ее на другую. Если есть другие буквы не трогать.
На пример при наличии первой буквы "У" заменить на "П". НУЖЕН МАКРОС.
Как все выглядит. Приложено в Excel 2007.

[vikttur]

=ЕСЛИ(ЛЕВСИМВ(A2)="У";ПОДСТАВИТЬ(A2 ;"У";"Р";1);A2)
=ЕСЛИ(КОДСИМВ(A2)=211;ЗАМЕНИТЬ(A2;1 ;1;"Р");A2)

[vikttur]

Если "У" может быть только первой буквой, то меню Правка-Найти/Заменить.

[alexvav]

человеку именно макрос нужен. наверно для бухгалтера предназначено.

[doober]

Лист1,столбец А

Sub Zamena()

      Set ra = Sheets("Лист1").Range(("a:a"), Sheets("Лист1").Range("a" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells
   
      If InStr(1, cell.Value, "У", vbTextCompare) = 1 Then
    
    cell.Value = "П" & Mid(cell.Value, 2, Len(cell.Value) - 1)
    
    End If
   
    Next cell
      
End Sub

[Maxx]

Sub Y_replace()
For i = 1 To Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Row
    If Mid(Cells(i, 1), 1, 1) = "У" Or Mid(Cells(i, 1), 1, 1) = "у" Then Cells(i, 1) = replace(Cells(i, 1), Mid(Cells(i, 1), 1, 1), "П")
Next i
End Sub

[Ast4]

Спасибо всем, действительно для бухов, буквы им не нравятся.
Воспользовался вариантом doober.