Ta reda på antalet rader och kolumner i en tabell med ett VBA -makro

Innehållsförteckning

Hur man använder ett VBA -makro för att ta reda på hur många rader och kolumner som används i en Excel -tabell

Beroende på Excel -versionen erbjuds ett annat antal rader och kolumner i en tabell. Hur kan du se i ett makro när du vill iterera över alla rader eller kolumner i en tabell?

Medan det i Excel till och med version 2003 bara fanns 256 kolumner och 65 536 rader, sedan Excel 2007 finns det 16 384 kolumner och 1 048 576 rader tillgängliga.

Det finns också olika lagringsformat i Excel för de två olika kalkylarken: XLS och XLSX. Det är dock inte så att en XLSX-fil automatiskt måste ha de större kalkylbladen. Även i Excel 2007 och Excel 2010, när en fil öppnas i kompatibilitetsläge, är endast de tidigare tabelldimensionerna tillgängliga.

Därför, om du vill bestämma i ett makro hur många rader och kolumner ett kalkylblad har, bör du fråga detta nummer direkt. Följande makro visar hur du gör detta

Sub RowUndColumnNumber ()
MsgBox ActiveSheet.Cells.Rows.Count & "Rader" & _
ActiveSheet.Cells.Columns.Count & "Kolumner".
Avsluta Sub

Om du anropar makrot med ett XLS -kalkylblad visar Excel motsvarande antal rader och kolumner, som visas i följande bild:

Om du startar makrot från Excel 2007 eller Excel 2010 utan kompatibilitetsläge, visar en dialogruta tabellens större dimensioner:

I VBA -slingor som ska köras genom alla celler i en tabell kan du därför använda de två egenskaperna RADER.KONTON och KOLUMNER.KONTON som beskrivs för att bestämma måtten på ett kalkylblad.

Det kan ta lång tid (särskilt i Excel 2007 och Excel 2010) att köra igenom alla teoretiskt tillgängliga celler med hjälp av ett makro. Om du bara vill begränsa slingor till det område som används rekommenderar vi att du använder egendomen USEDRANGE istället.

För att gå in i makrot, tryck på tangentkombinationen ALT F11 i Excel. Detta startar VBA -redigeraren i alla Excel -versioner. Där väljer du kommandot INSERT - MODULE och anger makrot. För att starta makrot, aktivera tangentkombinationen ALT F8 i Excel.

Du kommer att bidra till utvecklingen av webbplatsen, dela sidan med dina vänner

wave wave wave wave wave