Excel - AYUDA CON MACRO PARA REEMPLAZAR CARACTERES

Public Sub Reemplazar_ñ()

Selection.Replace What:="~" & "ñ", Replacement:="n", MatchCase:=True

End Sub

Option Explicit

Sub test()

Dim n%, s$

s = "año año ñ"

n = Reemplazar(s, "ñ", "n")

MsgBox s & " " & CStr(n)

End Sub

Public Function Reemplazar(ByRef t As String, ByVal c As String, ByVal d As String) As Integer

Dim s$, n%

If VBA.InStr(1, t, c) > 0 Then

begin:

   s = VBA.Replace(t, c, d, 1, 1)

   n = n + 1

   If VBA.InStr(1, s, c) > 0 Then

      t = s

      GoTo begin

   End If

   t = s

End If

Reemplazar = n

End Function