How to find replace text in Excel

[Chini mao]

Hi friends recently while using excel I was trying to find the replace text in my excel sheet, but however I can’t able to find the replace text in Excel. So I just want to know is it possible to create macros that find the replaced text in Excel. So how to find text or symbol in each cell and replace with hard carriage return

[DanielaA]

You could use edit and replace. Say that you wanted to replace the pound sign (#) with the hard line break (CHAR(10)). First, select the cells containing the data to be changed, then: <Edit> <Replace> In the "Find What" box, enter # And in the "Replace With" box, enter <ALT>0010 Using the numbers on the num keypad, *not* the numbers under the function keys. You will not see anything displayed in the "Replace With" box, but click "Replace All". You should see your data wrapped in the cell. If not, go to: <Format> <Cells> <Alignment> tab, And click in "Word Wrap", then <OK>.

[Chini mao]

I have this same questions and this answer did not work for me. It is inserting"<alt>0010". Not a hard return. Please help

[QUENBY]

I have this same questions and this answer did not work for me. It is inserting"<alt>0010". Not a hard return. Please help

If you're sure that the value exists in the selection, you can use
something like:

Selection.Find( _
What:=Sheets("Sheet2").Range("A1").Value, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:= False).Activate


However, if it doesn't, you'll get an error. You can use a variable to
check if it exists:

Dim rFound As Range
Set rFound = Selection.Find( _
What:=Sheets("Sheet2").Range("A1").Value, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:= False)
If rFound Is Nothing Then
MsgBox """" & Sheets("Sheet2").Range("A1").Value & _
""" was not found."
Else
rFound.Activate
End If