Ez a bemutató a következőket mutatja be 8 példák a használatra VBA válassza ki a Használt tartomány az excel egyik oszlopában. Általában a UsedRange tulajdonság az excelben a munkalap azon részét jelöli, amelyen adatok vannak. A példák szemléletes bemutatásához a UsedRange tulajdonságot egy adott adatkészletben az összes példa esetében.

Gyakorlati munkafüzet letöltése

A gyakorló munkafüzetet innen tölthetjük le.

8 egyszerű VBA példa a UsedRange oszlopban történő kiválasztására

A következő képen láthatjuk az adatkészletet, amelyet az összes példához használni fogunk. Az adatkészlet a következő neveket tartalmazza Értékesítők , a Helyszín , Régió, és Teljes összeg Ebben az adatkészletben a felhasznált tartományt a címsorral együtt kell figyelembe venni. Tehát a felhasznált tartomány a következő adatkészletben ( B2:E15 ).

1. UsedRange kiválasztása az oszlopban VBA-val az Excelben

Mindenekelőtt ki kell választanunk az összes oszlopot az adatállományunkból. Ehhez használjuk a VBA válassza ki a címet. UsedRange tulajdonságot az oszlopokban. Lássuk a módszer végrehajtásának lépéseit.

LÉPÉSEK:

• Kezdetnek, jobb gombbal kattintva az aktív lapon, amelynek neve ' Select_Columns '.
• Ezen kívül válassza ki a ' Kód megtekintése '.

• Ezután a fenti művelet megnyit egy üres VBA kódablakot az adott munkalaphoz. Ezt a kódablakot úgy is elérhetjük, hogy megnyomjuk a Alt + F11 .
• Ezután írja be a következő kódot a kódablakba:

 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub 

• Ezután kattintson a Fuss vagy nyomja meg a F5 billentyűt a kód futtatásához.

• Végül az alábbi képen látható eredményt kapjuk. Láthatjuk, hogy az adatállományunk oszlopaiban a használt tartományt most már kiválasztottuk.

2. A VBA használatával másolja az egész UsedRange-tartományt az oszlopba

A második példában a VBA hogy a teljes használt tartományt másoljuk ki az oszlopokból az adatállományunkból. Általában ezt a módszert egy adott régió másolására használjuk az adatállományunkból. A módszer végrehajtásához az alábbi lépéseket kell követnünk.

LÉPÉSEK:

• Először is, lépjen az aktív munkalap lapra, amelynek neve ' Másolás '.
• Következő, jobb gombbal kattintva a lapon, és válassza ki a Kód megtekintése '.

• Megnyit egy üres VBA kódablak az aktuális munkalaphoz. Egy másik módja ennek az ablaknak a megjelenítésére az, hogy megnyomja a Alt + F11 a billentyűzetről.
• Ezután illessze be az alábbi kódot a kódablakba:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Most a kód futtatásához kattintson a Fuss vagy nyomja meg a F5 kulcs.

• Végül a következő eredményt láthatjuk. A használt tartomány körül egy határvonalat is láthatunk. Ez azt jelzi, hogy a kód ezen a határon belül másolta az adatokat.

További információ: Excel VBA: Dinamikus tartomány másolása egy másik munkafüzetbe

3. A UsedRrange oszlopok számának számlálása a VBA használatával

A harmadik példában az excel segítségével megszámoljuk az adatállományunk oszlopainak számát. VBA válassza ki a címet. Használt tartomány módszerrel az oszlopban. Ez a példa egy üzenőmezőben fogja visszaadni a használt tartományon belüli oszlopok teljes számát az adatállományunkban. Kövesse az alábbi lépéseket a módszer végrehajtásához.

LÉPÉSEK:

• Először is, válassza ki az aktív lapot, amelynek neve ' Count_Columns '.
• Másodszor, jobb gombbal kattintva az aktív lap nevére, és kattintson a Kód megtekintése '.

• A fenti parancs megnyit egy üres VBA az aktív munkalap kódablakát. A kódablakot a következő gomb megnyomásával is elérhetjük Alt + F11 a billentyűzetről.
• Harmadszor, írja be a következő kódot az üres kódablakba:

 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub 

• Ezután kattintson a Fuss vagy nyomja meg a F5 billentyűt a kód futtatásához.

• Végül az eredményt egy üzenőmezőben kapjuk meg. A használt tartományban lévő oszlopok száma a következő 4 .

További információ: Hogyan használhatja a VBA-t az Excel tartomány sorainak számolásához az adatokkal az Excelben (5 makró)

4. Excel VBA a használt tartomány utolsó oszlopának számának számlálásához

Az előző módszerben a használt tartomány utolsó oszlopának számát vontuk ki. Ebben a példában azonban a használt tartomány utolsó oszlopának számát a teljes munkalapon a következő módszerrel határozzuk meg VBA válassza ki a címet. UsedRange tulajdonság. Lássuk a lépéseket, amelyeket követnünk kell a művelet végrehajtásához.

LÉPÉSEK:

• Kezdetnek, jobb gombbal kattintva az aktív lapon, amelynek neve ' Utolsó oszlop '.
• Ezután válassza ki a ' Kód megtekintése '.

• Tehát a fenti parancs megnyit egy üres VBA A kódablak megnyitásának másik módja a kódablak megnyitásához az, hogy megnyomja a Alt + F11 .
• Ezután illessze be a következő kódot a kódablakba:

 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub 

• Most kattintson a Fuss vagy nyomja meg a F5 billentyűt a kód futtatásához.

• A végén egy üzenőmezőben kapjuk meg az eredményt. A használt tartomány utolsó oszlopa a 5. oszlopában.

Hasonló olvasmányok

• Hogyan használjuk a VBA-t az Excel egyes soraihoz az Excel tartományban
• A VBA használata a tartomány kiválasztásához az aktív cellából az Excelben (3 módszer)
• Excel makró: Több oszlop rendezése dinamikus tartományban (4 módszer)

5. Az utolsó oszlop utolsó cellájának kiválasztása a UsedRange-ból VBA-val

Az ötödik példában a VBA válassza ki a címet. Használt tartomány tulajdonsággal egy excel táblázat utolsó oszlopának utolsó celláját választhatjuk ki. A példa illusztrálására folytassuk az előző adathalmazunkkal. Most nézzük meg a módszer végrehajtásának lépéseit.

LÉPÉSEK:

• Először válassza ki az aktív lapot, amelynek neve ' Last_Cell '.
• Következő, jobb gombbal kattintva a lap nevére. Válassza ki a Kód megtekintése '.

• Ezután kapunk egy üres VBA kódablakot. Továbbá, megnyomhatjuk a Alt + F11 a kódablak megnyitásához.
• Ezután írja be a következő kódot a kódablakba:

 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells(wrow, wcol).Select End Sub 

• Most a kód futtatásához kattintson a Fuss vagy nyomja meg a F5 .

• Végül az eredményt a következő képen láthatjuk. Az utolsó oszlop utolsó cellája a kiválasztott cella. E15 .

6. A kiválasztott UsedRange cellatartomány keresése az Excel VBA segítségével

Ebben a példában a következőket fogjuk alkalmazni VBA a kiválasztott használt tartomány cellatartományának megkeresésére egy excel munkalapon. Mi a VBA kódot a használt tartomány összes oszlopára. A kód visszaadja a cellatartományt, valamint a használt tartományban lévő oszlop címét. Kövesse az alábbi lépéseket a művelet végrehajtásához.

LÉPÉSEK:

• Kezdetben, jobb gombbal kattintva az aktív lap ' Cellatartomány keresése '.
• Másodszor, válassza ki a ' Kód megtekintése '.

• Megnyit egy üres VBA kódablak. Egy másik módszer a kódablak megnyitásához az, hogy megnyomja a Alt + F11 .
• Harmadszor, írja be a következő kódot a kódablakba:

 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub 

• Ezután a kód futtatásához kattintson a Fuss vagy nyomja meg a F5 kulcs.

• Végül az alábbi képen látható üzenetváltozat mutatja az eredményt.

Hasonló olvasmányok

• VBA az Excel tartomány sorainak és oszlopainak áthaladásához (5 példa)
• Hogyan alakítsuk át a tartományt az Excel VBA-ban lévő tömbökké (3 mód)

7. A VBA UsedRange tulajdonság beillesztése az üres cellák számolásához

Ebben a példában a VBA válassza ki a címet. UsedRange tulajdonsággal megszámolhatjuk az üres cellákat egy Excel-táblázatban. Néha előfordulhat, hogy az adatállományunk használt tartományában üres cellák vannak. Könnyen megszámolhatjuk az ilyen üres cellák számát azáltal, hogy a UsedRange tulajdonság. Lássuk a példa végrehajtásának lépéseit.

LÉPÉSEK:

• Először is, jobb gombbal kattintva az aktív lap ' Empty_Cells '.
• Ezután válassza ki a ' Kód megtekintése '.

• A fenti művelet megnyit egy üres VBA A kódablak megnyitásához egy másik lehetőség, hogy megnyomja a Alt + F11 .
• Ezután illessze be a következő kódot a kódablakba:

 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "A 4 használt oszlopban a felhasznált cellák száma " & d & _ " és ezek közül " & _ j & " cell(ok) üresek." End Sub 

• Ezután kattintson a Fuss vagy nyomja meg a F5 billentyűt a kód futtatásához.

• Végül megkapjuk az eredményt az üzenőmezőben. Az üzenőmezőben megjelenik az összes cellák és az üres cellák száma a használt tartományban.

8. VBA UsedRange az Excel oszlop első üres cellájának megkereséséhez az Excel oszlopban

Az utolsó példában az excel VBA válassza ki a Használt tartomány tulajdonságot az oszlopban, hogy megkeresse az első üres cellát az Excel munkalapunkon. Ez a módszer egy adott oszlop első üres celláját keresi meg. Az üres cella mindig az adatkészlet használt tartományán kívül lesz. Tehát, ha bármelyik cella üres vagy üres a használt tartományban, az nem lesz figyelembe véve ebben a módszerben. Most kövesse az alábbi lépéseket a módszer végrehajtásához.

LÉPÉSEK:

• Kezdetnek, jobb gombbal kattintva az aktív lap ' First_Empty '.
• Ezen kívül válassza ki a ' Kód megtekintése '.

• Megnyit egy üres VBA kódablakot. Megnyomhatjuk a Alt + F11 a kódablak megnyitásához.
• Továbbá írja be a következő kódot az üres mezőbe VBA kódablak:

 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub 

• Ezután a kód futtatásához kattintson a Fuss vagy nyomja meg a F5 kulcs.

• Végül a fenti kód beilleszti a ' FirstEmptyCell ' a cellában E16 Ez az oszlop első üres cellája. E az adatkészlet használt tartománya után.

További információ: Excel VBA a tartományon való áthaladáshoz az üres celláig (4 példa)

Következtetés

Dióhéjban ez a bemutató a következőket mutatja be 8 példák a VBA válassza ki a címet. UsedRange tulajdonságot egy excel táblázatban. Ha próbára szeretné tenni a képességeit, töltse le a cikkhez használt gyakorló feladatlapot. Ha bármilyen kérdése van, kérjük, nyugodtan írja meg az alábbi mezőben. Csapatunk igyekszik a lehető leghamarabb reagálni az üzenetére. Tartsa nyitva a szemét a további innovatív Microsoft Excel megoldások a jövőben.