Создайте процедуру VBA , вычеркивающую из введенного текста все русские буквы К.

Question

Создайте процедуру VBA , вычеркивающую из введенного текста все русские буквы К.

Answer 1

Sub aaa()
    s = InputBox("Введите текст")
    s = Replace(s, "к", "", , , vbTextCompare)
    MsgBox s
End Sub

Если нужна отдельная процедура для замены:

Sub ReplKk(s As String)
    s = Replace(s, "к", "", , , vbTextCompare)
End Sub

Sub Test()
    Dim s As String
    s = InputBox("Введите текст")
    ReplKk s
    MsgBox s
End Sub