If the only character that shows up in the formula bar is the apostrophe, then you can clean these up with this technique:
Code:
Select the range (ctrl-a a few times to select all the cells)
Edit|Replace
what: (leave blank)
with: $$$$$
replace all
Immediately followed by:
Edit|Replace
what: $$$$$
with: (leave blank)
replace all
These apostrophe cells could be left behind because you had formulas that
evaluated to ="" and were converted to values.
As for the other stuff. Cpearson has a very nice addin that will help determine what that character(s). You may be able to use Edit|Replace to change the character--Some characters can be entered by holding the alt-key and typing the hex number on the numeric keypad. For example, alt-0010 (or ctrl-j) can be used for linefeeds. But I've never been able to get alt-0013 to work for carriage returns.
Another alternative is to fix it via a formula:
=substitute(a1,char(##),"")
or
=substitute(a1,char(##)," ")
Replace ## with the ASCII value you see in Chip's addin.
Or you could use a macro (after using Chip's CellView addin):
Code:
Option Explicit
Sub cleanEmUp()
Dim myBadChars As Variant
Dim myGoodChars As Variant
Dim iCtr As Long
myBadChars = Array(Chr(##), Chr(##)) '<--What showed up in CellView?
myGoodChars = Array(" ","") '<--what's the new character, "" for nothing?
If UBound(myGoodChars) <> UBound(myBadChars) Then
MsgBox "Design error!"
Exit Sub
End If
For iCtr = LBound(myBadChars) To UBound(myBadChars)
ActiveSheet.Cells.Replace What:=myBadChars(iCtr), _
Replacement:=myGoodChars(iCtr), _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False
Next iCtr
End Sub
Bookmarks