Brug Excels indbyggede programmeringssprog Visual Basic for Applications eller VBA , til at erstatte en streng inden citater ved hjælp af , at sproget er erstat-funktion . Denne funktion søger efter en delstreng du angiver i en større snor , så erstatter substring med en tredje streng, som du giver. Bemærk, at denne operation ikke ændrer det oprindelige streng, men udsender en ny streng , som du kan fange i en ny streng variabel. Du kan bruge hvad du har lært i dette projekt for at fjerne overflødige anførselstegn , at brugere af din VBA -programmer ind i regneark . Instruktioner
1

Klik på " File" menuen "Option" knappen og derefter klikke på " Tilpas båndet " kontrol i " kategorier" rude. Klik på " Developer " afkrydsningsfeltet for at angive, at du vil have vist denne fane , og derefter lukke alle åbne dialogbokse . Excel vil nu vise "Udvikler "-fanen . Dette trin giver dig mulighed for at indtaste VBA udviklingsmiljøet gennem " Udvikler "-fanen er " Visual Basic "-knappen.
2

Klik på " Udvikler " fanen, og klik derefter på "Visual Basic " knappen for at indtaste VBA programmering miljø . Klik på "Indsæt "-fanen i miljøet , og klik derefter på " Module" kommando til at indsætte et nyt vindue til indtastning VBA udsagn.
3

Indsæt følgende program delen ind i vinduet du lige har oprettet . Dette fragment definerer en streng variabel , og tildeler den en streng, der er inden for citater. Fragmentet bruger Chr. erklæring at tilføje anførselstegn. Hvis du forsøger at tilføje citater uden en hjælpende funktion som Chr. vil udviklingen miljø rapportere en syntaksfejl . Årsagen er , at VBA syntakskontrollen fortolker hvert par af bogstavelige anførselstegn som en ny streng.

Sub replaceQuotedString ( ) Dim x, longerString , newString Som Stringx = Chr (34) & "abc" & , Chr (34 ) End Sub
4

Indsæt følgende program fragment efter sidste "X = " erklæring i den foregående fragment. Dette fragment gør opgaver til to nye strenge . Den første opgave er at strengen " longerString " og omfatter "X" variabel med sine anførselstegn. Erstat -funktionen udfører den anden opgave , som er at Denne funktion erstatter en delstreng af en længere streng med en anden streng

longerString = "Lad os erstatte denne streng: " " newString ". . & XnewString = Erstat ( longerString , x, "abc" )
5

Klik enhver erklæring i programmet, og tryk derefter på "F8 " for at indtaste funktionen for at køre programmer, et udsagn ad gangen. Tryk på "F8 " gentagne gange, indtil erklæring med " newString " fremhæves.
6

Kør musen over " longerString " variable . VBA vil vise strengen værdi , som omfatter X variabel med dens citerede streng, " abc ".
7

Press "F8" igen for at udføre Erstat statement, og holder musen over den " newString " variabel. VBA vil vise en streng med samme værdi som " longerString ", men med en ny streng i stedet for det citerede " abc " del . Den nye streng er "abc" uden anførselstegn .