Sajnos nem tudja egyben kezelni.

A 1 tartalma:
áÁéÉíÍóÓöÖőŐúÚüÜűŰ


B1 tartalma:
=HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(A1;"á";"a");"Á";"A");"é";"e");"É";"E");"í";"i");"Í";"I");"ó";"o");"Ó";"O")

C1 tartalma:
=HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(B1;"ö";"o");"Ö";"O");"ő";"o");"Ő";"O");"ú";"u");"Ú";"U");"ü";"u");"Ü";"U")

D1 tartalma:
=HELYETTE(HELYETTE(HELYETTE(HELYETTE(HELYETTE(C1;"Ú";"U");"ü";"u");"Ü";"U");"ű";"u");"Ű";"U")

https://pcforum.hu/tudastar/81457/excel-ekezetek-eltavolitasa

Sub Ekezet()
Dim s, s1 As String

s = "ÁáÉéÖöŐőÓóÚúŰűÜüÍí"
s1 = "AaEeOoOoOoUuUuUuIi"

For Each Cell In ActiveSheet.UsedRange.Cells

For i = 1 To Len(s)
char = Mid(s, i, 1)
chara = Mid(s1, i, 1)
If InStr(1, Cell.Value, char, vbTextCompare) > 0 Then
Cell.Value = Replace(Cell.Value, char, chara)
End If
Next i

Next

End Sub

https://prog.hu/tudastar/157915/ekezetes-betuk-konvertalasa-ekezet-nelkulive