Indsæt brugerdefineret antal rækker i Excel med denne enkle makro

Indsæt brugerdefineret antal rækker i Excel med denne enkle makro
Indsæt brugerdefineret antal rækker i Excel med denne enkle makro
Anonim

MS Office apps er designet meget intelligent og jeg siger ikke dette bare fordi de gør mit arbejde uendeligt nemmere. Jeg siger det fordi det er sandt. Få dage tilbage gjorde vi et indlæg på indsættelse af YouTube-videoer i Office 2013 og bemærkede, at indstillingen ikke var til stede i MS Excel, simpelthen fordi det ikke var nødvendigt der. Dette er den type intelligens, jeg taler om; At vide, hvilke funktioner der er behov for i en bestemt type app. Det sikrer, at intet irrelevant gør det til det endelige tilbud. Når det er sagt, var jeg overrasket over at finde ud af, at hvor Excel giver dig mulighed for at indsætte flere rækker i et regneark, kan du ikke vælge antallet af rækker, du vil tilføje. Du har andre arbejde rundt for at opnå dette som at vælge antallet af rækker, du vil tilføje fra de eksisterende, og derefter bruge indsætningsfunktionen. Eller du kan gentage indsættelsesrækket for så mange rækker, som du vil. Det er gentagne, men hvis du er villig til at spare fem minutter, kan denne lille makro tage sig af jobbet for dig.

Da dette kræver en makro, skal du gemme din fil som en makroaktiveret Excel-fil. For at gøre det skal du klikke på rullemenuen Gem som type i vinduet Gem som, og vælg 'Excel Marco Enabled Workbook (* xlsm).

Derefter er det tid til at skrive makroen. Gå til fanen Vis og klik på Makroer for at oprette en ny. Navngiv det, hvad du vil, og klik på 'Opret'. Følgende vindue åbnes automatisk.

Hvad der er relevant her er linjerne 'Sub' og 'End Sub'. Underlinjen indeholder navnet på din makro, mens End Sub markerer slutningen af kommandoen i den makro. Siden du lige har oprettet det, skal der ikke være noget mellem disse linjer som i skærmbilledet ovenfor. Indsæt følgende mellem disse to linjer.
Hvad der er relevant her er linjerne 'Sub' og 'End Sub'. Underlinjen indeholder navnet på din makro, mens End Sub markerer slutningen af kommandoen i den makro. Siden du lige har oprettet det, skal der ikke være noget mellem disse linjer som i skærmbilledet ovenfor. Indsæt følgende mellem disse to linjer.

Dim CurrentSheet As Object 'Loop gennem alle valgte ark. For hvert CurrentSheet I ActiveWindow.SelectedSheets 'Indsæt 5 rækker øverst på hvert ark. CurrentSheet.Range ("a1: a5"). EntireRow.Insert Next CurrentSheet

Denne kode indsætter fem rækker fra toppen. Det henvises til i koden som A1: A5. For at redigere det, der passer til dine behov, skal du redigere dette interval. Den første værdi tjener som reference til hvor rækkerne vil blive indsat. Hvis du ændrer det til A100, indsættes rækkerne efter de første nioghalvfems rækker. Efter indstilling af referencepunktet skal du indtaste antallet af rækker.

Radnumre defineres af celleområdet A1: A5. Dette interval vil indsætte 5 rækker. For at finde det rigtige interval for dit antal rækker, for eksempel vil du indsætte 25 rækker fra A99, du vil tilføje 25 til referencepunktet, så det er A99 og minus en celle fra det. Dvs. A100 + 99 - 1 = A198. Du tilføjer rækker og ikke kolonner, så kun tallet vil ændre sig og ikke kolonnebrevet. Makroen skal opdateres hver gang du skal indsætte rækker enmass, men det er kun en lille redigering, og det virker rigtig godt, så det er værd at bruge tiden.

Makro via Microsoft Support

Populært emne.