Excel-laskentataulukon kaikkien muiden rivien poistaminen

Yhteenveto

Tässä artikkelissa on Microsoft Visual Basic for Applications -mallimakro, jonka avulla voit poistaa microsoft Excel -laskentataulukon valitun alueen kaikki muut rivit.

Lisätietoja

Microsoft esittää ohjelmointiesimerkkejä vain asian havainnollistamiseksi, ilman suoraa tai epäsuoraa vastuuta niiden toimivuudesta. Tämä sisältää muunmuassa epäsuorat vastuut soveltuvuudesta kaupankäyntiin tai soveltuvuuteen yksilöityyn käyttöön. Tässä artikkelissa oletetaan, että olet perehtynyt käytettyyn ohjelmointikieleen, sekä proseduurien luonti- ja virheenkorjaustyökaluihin. Microsoftin tukihenkilöt voivat auttaa selvittämään tietyn proseduurin toiminnallisuutta, mutta he eivät muokkaa näitä esimerkkejä parantamaan yksittäisen tarpeen toiminnallisuutta eivätkä luo siihen proseduureja. Jos haluat käyttää seuraavaa makroa, määritä Excel-työkirja seuraavasti:

1. Luo uusi Microsoft Excel -työkirja.

2. Kirjoita uuteen laskentataulukkoon A1:A9 numerot 1- 5 ja ohita rivit seuraavassa esimerkissä esitetyllä tavalla:

   A1: 1
   A2:
   A3: 2
   A4:
   A5: 3
   A6:
   A7: 4
   A8:
   A9: 5
   

3. Valitse Työkalut-valikosta Makro ja valitse sitten Visual Basic Editor.

   Huomautus Valitse Microsoft Office Excel 2007:ssä ja uudemmissa versioissa Visual BasicKehittäjien välilehden Koodi-ryhmästä.

4. Napsauta Lisää -valikosta Moduuli.

5. Kirjoita uuteen moduuliin seuraava makro:

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 = 1
   Set xRng = Selection

' Loop once for every row in the selection.
   For xCounter = 1 To xRng.Rows.Count

' If Y is True, then...
       If Y = True Then

' ...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 + 1

End If

' If Y is True, make it False; if Y is False, make it True.
       Y = Not Y

Next xCounter

End Sub

6. Vaihda tiedot sisältävään laskentataulukkoon ja valitse sitten alue A1:A9.

7. Suorita makro valitsemalla Työkalut-valikosta Makro ja valitsemalla sitten Makrot.

   Huomautus

   • Valitse Excel 2007:ssä ja uudemmissa versioissa Kehittäjät-välilehden Koodi-ryhmästäMakrot.
   • Jos haluat nähdä Kehittäjä-välilehden valintanauhassa, napsauta Microsoft Office -painiketta, valitse Excelin asetukset, napsauta Suosittu-luokkaa, valitse Näytä kehittäjä -välilehti valintanauhasta ja valitse sitten OK.

8. Valitse Delete_Every_Other_Row makro ja valitse sitten Suorita.

Tämä makro poistaa kaikki muut rivit, alkaen valinnan toisesta rivistä.