När du arbetar inom en Microsoft Excel 2010 -kalkylblad , hur texten är formaterad kan vara mycket viktigt . Även om du kan styra hur du skriver in text i cellerna , om du har importerat informationen från en annan källa , kan den innehålla alla typer av formatering och tecken som du inte vill ha på ditt kalkylblad . Om dina data är för närvarande i alla mössor och innehåller skiljetecken , kan du använda VBA , den inbyggda programmeringsspråk , för att skriva en snabb makro som kommer att förändra kapitalisering och ta bort alla skiljetecken från text i kalkylbladet . Instruktioner
1
Öppna Excel 2010 -kalkylblad där du vill ta bort skiljetecken och använda ett annat ärende . Klicka på " Developer " längst upp på skärmen . Klicka på " Spela in makro " -knappen , placerad på den vänstra änden av menyfliksområdet .
2
Type " RemovePunctuationCaps " in till " Macro name" fältet . Mata in "q " i " Kortkommando " fältet . Klicka på " OK " för att stänga fönstret . Klicka på "Stop " -knappen på bandet för att stoppa makrot från inspelningen .
3
Klicka på " Visual Basic " -knappen på bandet för att starta VBA editorn . Dubbelklicka på " Modul 1 " på vänster sida av redaktören . Om du redan har skapat en modul i den här arbetsboken , måste du klicka på den sista listade modulen , istället för " Modul 1 . " Du kommer att se " Sub RemovePunctuationCaps ()" på höger sida av fönstret .
4
Klicka på den högra sidan av fönstret . Dra musen över den gröna texten mellan " Sub Ta bort ... " och " End Sub ". Radera all denna text så att " Sub " och " End Sub " linjer är allt som existerar .
5
Kopiera och klistra in följande kod mellan " Sub " och " End Sub "-raderna i VBA redaktör :
Dim RNG Som Range
För varje RNG I Selection
rng.Value = StrConv ( rng.Text , vbProperCase ) katalog
Nästa RNG
Detta kommer att skapa en variabel som heter " RNG " och ge den kod som behövs för att ändra ditt val i korrekt fall . Om du hellre vill använda gemener , ändra " vbProperCase " till
6
Ange följande kodsnutt mellan den sista koden och " " End Sub " linje " vbLowerCase . " :
Med CreateObject ( " vbscript.regexp " ) katalog
. Pattern = " [ ^ A - Za - z0 - 9 \\ ] "
. Global = Sant
varje RNG I Selection.SpecialCells ( xlCellTypeConstants ) katalog
rng.Value = . Ersätt ( rng.Value , vbNullString ) katalog
Nästa RNG
End With
detta kommer att ta bort alla skiljetecken från de markerade cellerna .
7
Klicka på " X " i övre högra hörnet av redigeraren för att stänga den . Klicka på cellen eller cellerna där du har den text som du vill konvertera . Tryck " Ctr - Q " och makrot ska utföra uppgiften .
