Hur man räknar raderna i ett Excel-kalkylblad med VBA-makron

Författare: Virginia Floyd
Skapelsedatum: 8 Augusti 2021
Uppdatera Datum: 1 Maj 2024
Anonim
Hur man räknar raderna i ett Excel-kalkylblad med VBA-makron - Artiklar
Hur man räknar raderna i ett Excel-kalkylblad med VBA-makron - Artiklar

Innehåll

Ibland behöver vi veta antalet rader som används i ett Excel-kalkylblad så att vi kan skapa en formel eller till och med ett VBA-makro. Lyckligtvis finns det några ganska enkla sätt att göra detta och Excel VBA är bara en av dem.Det enklaste sättet att ta reda på den här informationen är att gå till botten av ditt arbetsblad och titta på numret till höger om den sista datapunkten. dock med VBA är denna beräkning extremt enkel.


vägbeskrivning

Med VBA är det extremt enkelt att beräkna antalet rader i ett Excel-kalkylblad (BananaStock / BananaStock / Getty Images)

    Schemalägger makroet

  1. Öppna ditt Excel-kalkylblad och VBA-redigeraren genom att trycka på "Alt + F11".

  2. Starta en ny VBA-projektfil genom att högerklicka på din arbetsbok, visas i menyn till höger och välj "Ny".

  3. Starta den nya funktionen genom att skriva "Sub CountRows ()". Detta berättar för VBA-kompilatorn att det finns en ny subrutin för projektfilen. Om du föredrar att byta namn på subrutinen, ändra texten "CountRows" till något önskat namn, vilket måste följas av parenteserna som visas ovan, till exempel "YourName ()".


  4. Skapa en variabel inklusive texten "Dim Count as Long" på nästa rad.

  5. Ange följande kod:

    Count = 0 Count = Count + 1 ActiveCell.Offset (1, 0) .Välj Loop till IsEmpty (ActiveCell.Offset (0, 1))

    Detta informerar kompilatorprogrammet om att det är nödvändigt att analysera räkningsvariabeln och sedan räkna raderna i hela arbetsbladet. Koden lägger till en variabel för Totalräkningen och flyttar sedan till nästa cell så länge den är tom. När det når en tom cell, slutar körningen.

  6. Aktivera en textruta genom att lägga till en ny rad med texten "MsgBox Count". Detta kommer att visa en popup-ruta som berättar om det totala antalet rader. För att göra lådan lite mer användbar kan du skriva in ytterligare text. Byt namn på rad till:

    MsgBox "There is" [count number] "lines"


    Du kan ändra texten i citattecken efter önskemål.

  7. Slutligen skriver du "End Sub" i en ny rad för att avsluta subrutinfunktionen.

    Kör makroen

  1. Gå tillbaka till Excel-kalkylbladet och spara det.

  2. Markera den första kolumncellen som innehåller det största antalet data. Denna kolumn får inte innehålla tomma celler från toppen till botten.

  3. Öppna menyn "Verktyg" och välj "Makroner" för att visa en dialogruta som innehåller alla makron som är programmerade för arbetsbladet.

  4. Välj det makro som skapades i avsnitt 1, med namnet "CountRows" eller något annat namn du gav det och klicka på "Kör". När det är klart kommer makroen att visa en popup-textruta som anger antalet fyllda rader

tips

  • Om du bara behöver få ett nummer, är ett enklare och enklare alternativ att räkna raderna med hjälp av en formel. I en tom cell, skriv "= COUNT (A: A, IF (A> 0,1,0))", där A är kolumnen vars antal rader räknas.