How to find and replace at once?

[clif]

AaA
AbA
AcA
AdA

How to find and replace at once

AeA
AeA
AeA
AeA

Thanks!

[mancubus]

if you want to change 1 single character between 2 capitol A's, then you may use Find and Replace by pressing Ctrl+H keys.

make sure you check "Match Case" from Options for case sensitivity.

Find what: A?A
Replace with: AeA

then hit Replace All button.

[clif]

from

AaB
AbC
AcD

to

AeB
AeC
AeD

[GreenDR]

are all your "replacable" characters the 2nd characters of the string in the cell?

[clif]

yes

[GreenDR]

try this code which replaces all values in column A

Sub test()
Dim s As String
Dim s1 As String
Dim ln As Integer
Dim rws As Long, i As Long
rws = Application.WorksheetFunction.CountA(Range("A:A"))
For i = 1 To rws
s = Cells(i, 1).Value
ln = Len(s)
s1 = Left(s, 1) & "e" & Right(s, ln - 2)
Cells(i, 1).Value = s1
Next
End Sub

[mancubus]

solution with REPLACE function in helper column.

=REPLACE(A1,2,1,"e")

copied down to last row with data in column A.