När du behöver för att automatisera uppgifter i Microsoft Excel 2010 , kan du vända dig till Visual Basic for Applications är ett programmeringsspråk som ingår med alla moderna versioner av Microsoft Office-program för Windows ( var VBA-stöd bort för Mac Office i version 2008 , men ersattes i version 2011 ) . VBA tillåter dig att köra ett litet program över flera Excel-celler , till skillnad från Excel formler , som endast fungerar på cell de befinner sig i. Medan Excel program levereras med en sök och ersätt guiden kan du använda VBA för att söka och ersätta cell innehåll utan att kräva någon indata , och du kan göra det i alla kalkylblad i arbetsboken . Instruktioner
1
Öppna Excel- arbetsbok där du vill ange din VBA-kod . Tryck på " Alt " och " F11 " för att öppna upp VBA -konsolen .
2
Dubbelklicka på modulen där du vill ange din kod . Om det inte finns någon modul kan du högerklicka på ett kalkylblad , flytta musen över " Infoga " och välj " Modul . " Dubbelklicka sedan på modulen för att ta upp det
3
Kopiera följande formel i modulen : .
Sub AReplace ( ) katalog
Dim sb Som Arbetsblad
För varje sb I kalkylblad
sb.Cells.Replace Vad : = " XXX " , Ersättare: = " YYY " , lookat : = xlPart , _
SearchOrder : = xlByRows , MatchCase : = False
Nästa
End Sub
Change " XXX " till det värde du söker efter och " YYY " till det värde du vill ersätta den med . Du kan också ändra " MatchCase " värdet " sant" om aktivering är viktig . Detta makro hittar och ersätter alla önskade värden på varje kalkylblad i arbetsboken
4
Använd följande kod om du bara vill ersätta alla värden i ett givet val: .
Selection.Replace Vad : = " XXX " , Ersättare: = " YYY " , lookat : = xlPart , _
SearchOrder : = xlByRows , MatchCase : = False
Du kan använda denna kod inom alla andra VBA-makro så länge du anger denna kod efter att du har definierat ett urval område i ditt makro .
5
Klicka på " X " i övre högra hörnet av VBA fönstret för att stänga den. Alla dina ändringar sparas automatiskt .
6
Klicka på " Utvecklare " -fliken och tryck på " Macro " -knappen . Välj ditt makro i listan och klicka på " Kör " för att ersätta alla de riktade värdena i kalkylbladet eller arbetsboken .
