När du har en liten datatabell med några få kolumner kan du enkelt räkna dem alla. Men när det gäller en stor datatabell är det ganska svårt att räkna alla kolumner utan fel. Dessutom kan vissa kolumner innehålla data, medan vissa kolumner kan vara helt tomma. Det är alltså ganska svårt att räkna alla kolumner med data när det gäller en stor datatabell. I den här artikeln får du lära dig två sätt att räknakolumner med data med hjälp av VBA i Excel.

Ladda ner övningsboken

Du kan ladda ner Excel-filen från följande länk och öva med den.

Räkna kolumner med data.xlsm

2 sätt att räkna kolumner med data med VBA i Excel

1. Räkna alla kolumner i ett kalkylblad med data med hjälp av en enkel VBA-kod

Vi kan se de tre kolumnerna i följande datatabell. Nu ska vi använda en VBA-kod för att bestämma antalet använda kolumner i ett enda Excel-arbetsblad.

❶ Tryck först och främst på ALT + F11 för att öppna VBA-redigeraren.

❷ Skapa sedan en ny modul från Infoga> Modul.

❸ Kopiera sedan följande VBA-skript.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Antalet kolumner med data är: " & .Columns.Count End With End Sub 

❹ Gå sedan tillbaka till VBA-redigeraren och tryck på CTRL + V för att klistra in den.

❺ Spara nu VBA-koden genom att trycka på CTRL + S knapp.

❻ För att köra VBA-koden går du till Utvecklare och klicka på Makroer Eller så trycker du helt enkelt på F5 nyckel.

Makro kommer att visas.

❼ Allt du behöver göra är att klicka på Kör knapp.

Nu ser du att en dialogruta har dykt upp som säger att antalet kolumner med data är 3.

Läs mer: Hur man räknar antalet kolumner i Excel (3 enkla metoder)

2. Räkna alla kolumner i ett givet intervall med data med hjälp av en Excel VBA-kod

Med följande VBA-kod kan du räkna alla kolumner med data i ett visst intervall.

För att använda koden,

❶ Öppna först och främst VBA-redigeraren genom att trycka på ALT + F11.

❷ Gå sedan till Infoga> Modul för att skapa en ny modul.

❸ Kopiera sedan följande VBA-skript.

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Total column: " & xRng.Range("B5:D5").Columns.Count End Sub 

❹ Gå tillbaka till VBA-redigeraren och tryck på CTRL + V för att klistra in den.

❺ Spara nu koden genom att trycka på CTRL + S.

❻ Gå till Utvecklare och tryck på fliken Makroer för att öppna Makro fönster.

Eller så trycker du bara på F5 för att använda Makro dialogrutan.

❼ Välj funktionsnamn i dialogrutan. CountColumnsInARange och slå till på Kör knapp.

Slutligen visas en liten dialogruta som visar att det totala antalet kolumner är 3.

Läs mer: Hur man räknar kolumner för VLOOKUP i Excel (2 metoder)

Fler VBA-koder för att räkna kolumner i Excel

1. Använd VBA Range.End-metoden för att återge det senast använda kolumnnumret

Så här får du fram det senast använda kolumnnumret i ett Excel-kalkylblad,

❶ Öppna först och främst VBA-redigeraren genom att trycka på ALT + F11.

❷ Gå sedan till Infoga> Modul för att skapa en ny modul.

❸ Kopiera följande VBA kod:

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub 

❹ Klistra in och spara koden i VBA-redigeraren.

❺ Tryck på F5 för att köra ovanstående kod.

Det sista kolumnnumret visas i en popup-dialogruta som i bilden nedan:

Läs mer: Hur du räknar kolumner tills värdet är uppnått i Excel

2. Använd Range.Find-metoden för att återge det senast använda kolumnnumret i Excel

Om du letar efter VBA-koder för att återge det senast använda kolumnnumret följer du stegen nedan:

❶ Tryck först och främst på ALT + F11 för att öppna VBA-redigeraren.

❷ Skapa sedan en ny modul från Infoga> Modul.

❸ Kopiera följande VBA-kod:

 Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber: " & xRng End Sub 

❹ Gå sedan tillbaka till VBA-redigeraren och tryck på CTRL + V för att klistra in den.

❺ Spara nu VBA-koden genom att trycka på CTRL + S knapp.

Tryck nu på F5 för att köra ovanstående kod.

Det senast använda kolumnnumret visas i en popup-dialogruta som i bilden nedan:

Saker att komma ihåg

• Tryck på ALT + F11 för att öppna VBA-redigeraren.
• Du kan trycka på ALT + F8 för att använda sig av Makroer dialogrutan.
• För att köra VBA-koden trycker du på F5.

Slutsats

Sammanfattningsvis har vi diskuterat 2 sätt att räkna kolumner med data med hjälp av VBA i Excel. Du rekommenderas att ladda ner arbetsboken som bifogas tillsammans med den här artikeln och öva alla metoder med den. Och tveka inte att ställa frågor i kommentarsfältet nedan. Vi kommer att försöka svara på alla relevanta frågor så fort som möjligt. Och besök vår webbplats ExcelWIKI för att utforska mer.