Normalt kan man enkelt søke og erstatte celleinnhold i Excel på vanlig vis. Men, noen ganger kan det være at mengden er stor, eller at det er noen tegn som knapt lar seg skrive inn i dialogboksen for søk og erstatt. Da er det enklere å bruke VBA for å løse floken.
Her er to makroer som gjør akkurat det samme, forskjellen er at 1) starter på toppen av en kolonne og endrer helt til den kommer til bunnen av kolonnen (merk: den stopper i første tomme celle), mens 2) baserer seg på det markerte området.
Hvis du er i tvil om hvilket tegn du faktisk ønsker å bli kvitt, så se Identifisere spesialtegn i en celle for å finne en makro som viser hvilke tegn som faktisk er i cellen.
Sub replaceChar1() Do Until ActiveCell = "" ActiveCell.Replace What:=Chr(160), Replacement:="", _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _ SearchFormat:=False, ReplaceFormat:=False Loop End Sub
Sub replaceChar2() Dim cel As Range For Each cel In Intersect(Selection, ActiveSheet.UsedRange) ActiveCell.Replace What:=Chr(160), Replacement:="", _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _ SearchFormat:=False, ReplaceFormat:=False Next End Sub