Ha egy kis adattáblánk van néhány oszloppal, akkor könnyen megszámolhatjuk az összeset. De egy nagy adattábla esetében elég nehéz hiba nélkül megszámolni az összes oszlopot. Emellett egyes oszlopok tartalmazhatnak adatokat, míg egyes oszlopok teljesen üresek lehetnek. Így egy nagy adattábla esetében az összes adatot tartalmazó oszlop megszámolása elég nehéz. Ebben a cikkben 2 módszert fogsz megtanulni a megszámolásra.oszlopok adatokkal az Excelben a VBA segítségével könnyedén.

Gyakorlati munkafüzet letöltése

Az alábbi linkről letöltheti az Excel fájlt, és gyakorolhat vele együtt.

Számoljon oszlopokat Data.xlsm-vel

2 mód az adatokkal rendelkező oszlopok számlálására a VBA használatával az Excelben

1. Számolja meg az összes oszlopot egy adatot tartalmazó munkalapon egy egyszerű VBA-kód segítségével

A 3 oszlopot a következő adattáblázatban láthatjuk. Most egy VBA kódot fogunk használni a felhasznált oszlopok számának meghatározására egyetlen Excel munkalapon.

❶ Először is, nyomja meg a ALT + F11 a VBA-szerkesztő megnyitásához.

❷ Ezután hozzon létre egy új modult a Beszúrás> Modul.

❸ Ezután másolja a következő VBA-szkriptet.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Az adatokkal rendelkező oszlopok száma: " & .Columns.Count End With End Sub 

❹ Ezután térjen vissza a VBA-szerkesztőbe, és nyomja meg a CTRL + V hogy beillessze.

❺ Most mentsük el a VBA kódot a CTRL + S gomb.

❻ A VBA kód futtatásához lépjen a Fejlesztő fülre, és kattintson a Makrók Vagy egyszerűen nyomja meg a F5 kulcs.

A Makró párbeszédpanel jelenik meg.

❼ Mindössze annyit kell tennie, hogy kattintson a Fuss gomb.

Most látni fogod, hogy megjelent egy párbeszédpanel, amely azt mondja, hogy az adatokkal rendelkező oszlopok száma 3.

Bővebben: Hogyan számoljuk meg az oszlopok számát az Excelben (3 egyszerű módszer)

2. Számolja meg az összes oszlopot egy adott tartományban az adatokkal egy Excel VBA-kód segítségével

A következő VBA-kód segítségével megszámolhatja az összes olyan oszlopot, amelynek adatai egy adott tartományban vannak.

A kód használata,

❶ Először is, nyissa meg a VBA szerkesztőt a ALT + F11.

❷ Akkor menj a következő címre Beszúrás> modul egy új modul létrehozásához.

❸ Ezután másolja a következő VBA-szkriptet.

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

❹ Menjen vissza a VBA-szerkesztőbe, és nyomja meg a CTRL + V hogy beillessze.

❺ Most mentsük el a kódot a CTRL + S.

❻ Menjen a Fejlesztő lapot, és nyomja meg a Makrók a Makró ablak.

Vagy egyszerűen csak nyomja meg a F5 billentyűvel a Makró párbeszédpanel.

❼ A párbeszédpanelen válassza ki a funkció nevét. CountColumnsInARange és nyomja meg a Fuss gomb.

Végül megjelenik egy kis párbeszédpanel, amely szerint az oszlopok száma összesen 3.

Bővebben: Hogyan számoljuk meg az oszlopokat a VLOOKUP számára az Excelben (2 módszerek)

További VBA-kódok az Excel oszlopok számlálásához

1. A VBA Range.End módszerrel adja vissza az utoljára használt oszlop számát

Az utolsó használt oszlopszám megadása egy Excel-táblázatban,

❶ Először is, nyissa meg a VBA szerkesztőt a ALT + F11.

❷ Akkor menj a következő címre Beszúrás> modul egy új modul létrehozásához.

❸ Másolja a következőket VBA kód:

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

❹ Illessze be és mentse a kódot a VBA-szerkesztőprogramban.

❺ Nyomja meg a F5 billentyűvel a fenti kód futtatásához.

Az utolsó oszlopszámot egy felugró párbeszédpanelen kapja meg, mint az alábbi képen:

Bővebben: Hogyan számoljuk az oszlopokat, amíg az értéket el nem érjük az Excelben

2. A Range.Find módszerrel adja vissza az utolsó használt oszlopszámot az Excelben

Ha VBA-kódokat keres az utoljára használt oszlopszám visszaadásához, akkor kövesse az alábbi lépéseket:

❶ Először is, nyomja meg a ALT + F11 a VBA-szerkesztő megnyitásához.

❷ Ezután hozzon létre egy új modult a Beszúrás> Modul.

❸ Másolja a következő VBA-kódot:

 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 

❹ Ezután térjen vissza a VBA-szerkesztőbe, és nyomja meg a CTRL + V hogy beillessze.

❺ Most mentsük el a VBA kódot a CTRL + S gomb.

Most nyomja meg a F5 billentyűvel a fenti kód futtatásához.

A legutoljára használt oszlopszámot egy felugró párbeszédpanelen kapja meg, mint az alábbi képen:

Emlékezetes dolgok

• Sajtó ALT + F11 a VBA-szerkesztő megnyitásához.
• Megnyomhatja a ALT + F8 hogy igénybe vehesse a Makrók párbeszédpanel.
• A VBA kód futtatásához nyomja meg a F5.

Következtetés

Összefoglalva, megvitattuk 2 módját az oszlopok számolásának az adatokkal VBA használatával az Excelben. Javasoljuk, hogy töltse le a cikkhez csatolt gyakorlati munkafüzetet, és gyakorolja az összes módszert ezzel. És ne habozzon, hogy bármilyen kérdést tegyen fel az alábbi megjegyzés rovatban. Megpróbálunk válaszolni az összes vonatkozó kérdésre. És kérjük, látogasson el a weboldalunkra. ExcelWIKI hogy többet tudjon meg.