Microsoft Office Excel 2003, Microsoft Office Excel 2007, Excel 2010, Excel 2013
Sammendrag
Denne artikkelen inneholder et eksempel på en Microsoft Visual Basic for Applications-makro som du kan bruke til å slette annenhver rad i et merket område i et Microsoft Excel-regneark.
Mer informasjon
Microsoft gir programmeringseksempler kun for illustrasjon, uten garanti hverken uttrykt eller antydet. Dette inkluderer, men er ikke begrenset til, de underforståtte garantiene for salgbarhet eller egnethet for et bestemt formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som blir demonstrert og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtte-teknikere kan hjelpe til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å dekke dine spesifikke behov. Hvis du vil bruke følgende makro, konfigurerer du en Excel-arbeidsbok på følgende måte:
Opprett en ny Microsoft Excel-arbeidsbok.
Skriv inn tallene fra 1 til 5 i området A1:A9 i et nytt regneark, og hopp over rader, som i eksemplet nedenfor:
excel
A1: 1A2:
A3: 2A4:
A5: 3A6:
A7: 4A8:
A9: 5
Pek mot Makro og klikk deretter på Visual Basic Editor i verktøymenyen.
Merk Klikk Visual Basic i Kode-gruppen i kategorien Utvikler i Microsoft Office Excel 2007 og nyere versjoner.
I Sett inn-menyen klikker du Modul.
Skriv inn følgende makro i den nye modulen:
VB
Sub Delete_Every_Other_Row()
' Dimension variables.
Y = False' Change this to True if you want to' delete rows 1, 3, 5, and so on.
I = 1Set xRng = Selection
' Loop once for every row in the selection.For xCounter = 1To xRng.Rows.Count
' If Y is True, then...If Y = TrueThen' ...delete an entire row of cells.
xRng.Cells(I).EntireRow.Delete
' Otherwise...Else' ...increment I by one so we can cycle through range.
I = I + 1EndIf' If Y is True, make it False; if Y is False, make it True.
Y = Not Y
Next xCounter
EndSub
Bytt til regnearket som inneholder dataene, og merk deretter området A1:A9.
Hvis du vil kjøre makroen, peker du på Makro på Verktøy-menyen, og deretter klikker du Makroer.
Obs!
Klikk Makroer i Kode-gruppen i kategorien Utvikler i Excel 2007 og nyere versjoner.
Hvis du vil vise Utvikler-fanen på båndet, klikker du Microsoft Office-knappen, alternativer for Excel, klikker kategorien Populært, klikker for å merke av for Vis utvikler på båndet , og deretter klikker du OK.
Merk Delete_Every_Other_Row makroen, og klikk deretter Kjør.
Denne makroen sletter annenhver rad, og starter med den andre raden i det merkede området.
Obs!
Hvis du har en liste med data som inneholder flere kolonner, merker du bare den første kolonnen med data, og deretter kjører du makroen.