VBA Radera rad
I Excel för att radera vilken rad som helst, har vi en genväg för att använda CTRL + - eller så kan vi välja raden och högerklicka på den och ta bort den. Men i VBA har vi gjort det genom att skriva en kod för det. Metoden för att radera en rad i VBA är först vi måste identifiera vilken rad som ska raderas och sedan kan vi ta bort den. I den här artikeln kommer vi att lära oss olika illustrationer om hur man raderar en rad i VBA.
I VBA används Radera rad för att radera antingen en uppsättning rader eller en enda rad beroende på situationerna. I likhet med Excel-kalkylbladet kan vi använda makron eller VBA för att radera raderna i ett Excel-kalkylblad. Detta hjälper när många data har med oss och vi kan inte göra det manuellt.
Syntax för att radera rad i Excel VBA
Syntaxen för att radera en rad i Excel är som nedan.
Worksheets.Rows (Row #). Delete
Det finns också andra metoder för att radera rader genom att använda VBA på följande sätt.
Range ( ”Cell”). EntireRow.Delete
Vad ovanstående uttalande kommer att göra är att det kommer att radera raden för den givna raden. Om vi till exempel skriver Range (“A1”) .RealRow.Delete raderas den första raden eftersom cell A1 tillhör den första raden.
Vi kan också använda Rader (rad_num) .delete för att radera en rad.
Hur tar jag bort rad i Excel med VBA?
Nedan följer några exempel på hur man tar bort en rad i Excel med VBA.
Du kan ladda ner denna VBA Radera rad Excel-mall här - VBA Radera rad Excel-mallVBA Radera rad - exempel # 1
Låt använda den första enkla metoden för att radera rader. För demonstrationsändamål kommer jag att ange ett slumpmässigt värde i cell A1 och B1. Titta på det nedan.
Det jag vill se är om jag använder koden som är skriven över hela raden kommer att raderas eller en enda cell kommer att raderas.
Obs: För att använda Excel VBA måste vi ha utvecklarfliken aktiverad från fliken Filer i avsnittet med alternativ.Följ stegen nedan för att radera raden i Excel med VBA.
Steg 1: Gå till utvecklarens flik Klicka på Visual Basic för att öppna VBA Editor.
Steg 2: Förklara en delfunktion i kodsegmentet för att börja skriva koden.
Koda:
Sub Sample () Slut Sub
Steg 3: Skriv nu följande kod för att radera raden.
Koda:
Underprov () Område ("A1") .RealRow.Delete End Sub
Steg 4: Kör den här koden genom att trycka på F5 eller Run-knappen och se utgången.
När vi kör koden kan vi se att värdena från både cell A1 och B1 tas bort eftersom hela den första raden har tagits bort.
VBA Radera rad - exempel # 2
Tidigare i det första exemplet har jag tagit bort en enda rad. Men hur är det om vi måste ta bort flera rader. För demonstrationsändamål har jag följande data som visas nedan,
Jag vill radera alla de första fem raderna. Följ nedanstående steg för att radera raden i Excel med VBA.
Steg 1: Klicka på Visual Basic för att öppna VBA Editor på utvecklarens flik.
Steg 2: I koden förklarar en underfunktion att börja skriva koden,
Koda:
Sub Sample1 () Slut Sub
Steg 3: Skriv följande kod som visas nedan för att radera hela fem rader.
Koda:
Underprov1 () Område ("A1: B5"). HeltRow.Delete End Sub
Steg 4: Kör den här koden genom att trycka på F5 eller Run-knappen och se utgången.
När vi har kört koden ser vi följande resultat. Hela data har raderats innebär att de första fem raderna har tagits bort eftersom vi hade data i de första fem raderna.
Obs: Jag sätter tillbaka data i excel-provbladet för demonstration.VBA Radera rad - exempel # 3
Nu har vi data för anställda och deras försäljning sker på tre månader Jan, Feb och Mars. En av de anställda hade ledighet och kunde inte sälja i tre månader så cellerna är tomma för honom. Vårt mål är att hitta den tomma raden och ta bort den från data.
Titta på uppgifterna nedan,
Följ nedanstående steg för att radera raden i Excel med VBA.
Steg 1: Från utvecklarens flik klickar du på Visual Basic för att öppna en visuell basredigerare.
Steg 2: Förklara subfunktionen i kodfönstret för att börja skriva koden,
Koda:
Sub Sample2 () Slut Sub
Steg 3: Skriv följande kod för att radera raderna som har tomma celler.
Koda:
Sub Sample2 () Range ("A1: D5"). SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub
SpecialCells är en funktion i VBA som returnerar oss alla celler som matchar våra villkor och vårt tillstånd var de tomma cellerna i det intervallet så vi använde en xlCellTypeBlanks-funktion.
Steg 4: Kör den här koden genom att trycka på F5 eller Run-knappen och se utgången.
När vi kör koden kan vi se att raden som hade tomma celler har tagits bort.
Obs: Jag kommer igen att sätta tillbaka data i excel-provbladet för demonstration.VBA Radera rad - exempel # 4
Det finns några andra liknande metoder för att radera raderna, till exempel att använda raderna och radera funktionen. Till exempel har vi data i rad 4 och jag vill radera rad 4. Vi kan ge ett kommando att excel att radera 4: e raden i data. Titta på skärmdumpen nedan. Jag har slumpmässiga data i rad 4 i den första cellen.
Följ nedanstående steg för att radera raden i Excel med VBA.
Steg 1: Öppna VBA Editor genom att klicka på Visual Basic från utvecklarens flik,
Steg 2: Förklara subfunktionen för att börja skriva koden.
Koda:
Sub Sample3 () Slut Sub
Steg 3: Skriv följande kod för att radera den fjärde raden.
Koda:
Subprov3 () Rader (4). Ta bort slutet Sub
Steg 4: Kör den här koden genom att trycka på F5 eller Run-knappen och se utgången.
Data har tagits bort eftersom den fjärde raden har tagits bort själv.
VBA Radera rad - exempel # 5
I ovanstående kod har vi gett intervallet eller raden att radera i själva koden. Låt oss nu ta input från användaren och han kan radera raden från en given data. Till exempel har jag data om anställda och försäljningen gjorde som nedan och jag vill att en användare ska välja intervallet från hur mycket data användaren vill ta bort raderna med tomma celler. Titta på nedanstående data,
Följ nedanstående steg för att radera raden i Excel med VBA.
Steg 1: Öppna VB Editor genom att klicka på Visual Basic från utvecklarens flik,
Steg 2: Förklara en underfunktion för att börja skriva koden.
Koda:
Sub Sample4 () Slut Sub
Steg 2: Förklara två variabler som intervall, A och B.
Koda:
Sub Sample4 () Dim A As Range Dim B As Range End Sub
Steg 3: För att ta inmatning från användaren för ett urval av intervall för att radera, kommer vi att använda inmatningsboxfunktionen och vi sparar den inmatningen i en variabel definierad ovan.
Koda:
Sub Sample4 () Dim A As Range Dim B As Range Set A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) End Sub
Steg 4: Ställ B = A så att ingången från användaren kan lagras i intervall B.
Koda:
Sub Sample4 () Dim A As Range Dim B As Range Set A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) Set B = A End Sub
Steg 5: Nu tar vi bort de data som har tomma celler från det område som användaren väljer.
Koda:
Sub Sample4 () Dim A As Range Dim B As Range Set A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) Set B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub
Steg 6: Kör nu koden från den medföljande körknappen.
Steg 6: En inmatningsruta visas.
Steg 7: Välj intervallet från A1: D8 i det här exemplet. Tryck på OK för att se resultatet.
Data som hade tomma celler har tagits bort.
Saker att komma ihåg
Det finns några saker vi behöver komma ihåg om Radera rad i Excel VBA:
- Vi kan radera raden baserad på en enda cell.
- Vi kan ta bort flera rader genom att ange ett antal celler.
- Vi kan också ta bort rader genom att ta input från användaren.
Rekommenderade artiklar
Detta har varit en guide till VBA Delete Row. Här diskuterade vi hur du raderar rad i Excel VBA tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -
- Hur använder jag ersättningsfunktionen i VBA?
- Excel Radera radgenväg
- VBA-ärende | Excel-tricks
- Excel Infoga radgenväg
- Hur summerar jag flera rader i Excel?