Když píšeme kódování VBA, abychom se zachránili před opakující se prací, hraje výběr dat velmi důležitou roli. V tomto článku se tedy dozvíte, jak vybrat data podle řádků, sloupců a celých dokumentů pomocí kódování VBA v aplikaci Microsoft Excel.
Naučíte se:
- Jak vybrat celý sloupec?
- Jak vybrat celý řádek?
- Jak vybrat celá data?
Jak vybrat celý sloupec prostřednictvím VBA?
Máme data v rozsahu A1: C19, ve kterých sloupec A obsahuje Jméno, sloupec B Pohlaví a sloupec C obsahuje Věk.
Chcete-li v těchto datech vybrat celý sloupec A, postupujte podle níže uvedených kroků a kódu:-
- Otevřete stránku VBA stisknutím klávesy Alt+F11
- Vložte modul
- Napište níže uvedený kód:
Dílčí sloupec vyberte () Rozsah ("A1"). Celý sloupec. Vyberte Koncový pod
- Stisknutím klávesy F5 spustíte makro v aplikaci Excel
- Bude vybrán sloupec A.
Pokud chcete, aby byla data vybírána až do poslední aktivní buňky ve sloupci, postupujte podle níže uvedených kroků a kódu:-
- Napište níže uvedený kód:-
Podsloupecselect () lastrow = pracovní listy („Sheet1“). Buňky (Rows.count, 1). Konec (xlUp). Řádkové listy („Sheet1“). Rozsah („A1: A“ & lastrow). Vyberte End Sub
Vysvětlení kódu:- Nejprve definujeme, co bude poslední aktivní buňkou v datech, a poté poslední řádek použijeme k definování rozsahu v kódování.
- Stisknutím klávesy F5 spustíte makro v aplikaci Excel
- Bude vybrán sloupec A1: A19
Tímto způsobem pomocí VBA můžete vybrat kód pro výběr sloupce do poslední aktivní buňky. Když nevíme, co je poslední aktivní buňka, můžeme tento kód použít při psaní kódu VBA pro výběr v aplikaci Microsoft Excel.
Jak vybrat celý řádek prostřednictvím VBA?
Máme data v rozsahu A1: C19, ve kterých sloupec A obsahuje Jméno, sloupec B Pohlaví a sloupec C obsahuje Věk.
Chcete-li v těchto datech vybrat celý řádek, postupujte podle níže uvedených kroků a kódu:-
- Otevřete stránku VBA stisknutím klávesy Alt+F11
- Vložte modul
- Napište níže uvedený kód:-
Dílčí řada vyberte () Rozsah („A2“). EntireRow. Vyberte Konec Sub
- Stisknutím klávesy F5 spustíte makro v aplikaci Excel
- Bude vybrán sloupec A.
Pokud chcete, aby byla data vybírána do poslední aktivní buňky na řádku, postupujte podle níže uvedených kroků a kódu:-
- Napište níže uvedený kód:-
Vyberte dílčí řádek () Ztlumit poslední sloupec Jako dlouhý poslední sloupec = Pracovní listy („List1“). Buňky (1, Sloupce. Počet). Konec (xlToLeft). Pracovní listy sloupců („List1“). Rozsah („A1“, buňky (1, poslední sloupec) )). Vyberte End Sub
Vysvětlení kódu: V tomto kódu jsme nejprve definovali poslední sloupec a poté jej použijeme k definování rozsahu.
- Stisknutím klávesy F5 spustíte makro v aplikaci Excel
- První řádek bude vybrán až do poslední aktivní buňky v řádku
Tímto způsobem můžeme vybrat celý řádek nebo vybrat řádek až do poslední aktivní buňky v aplikaci Microsoft Excel prostřednictvím VBA.
Jak vybrat celá data prostřednictvím VBA?
Ukažme si příklad a rozumíme:-
Máme data v rozsahu A1: C19, ve kterých sloupec A obsahuje Jméno, sloupec B Pohlaví a sloupec C obsahuje Věk.
Chcete-li vybrat data z první buňky do poslední aktivní buňky, postupujte podle níže uvedených kroků a kódu:-
- Otevřete stránku VBA stisknutím klávesy Alt+F11
- Vložte modul
- Napište níže uvedený kód:
Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1). End (xlUp). Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns .count). End (xlToLeft). Sloupcové pracovní listy („Sheet1“). Rozsah („A1“, buňky (poslední řádek, poslední sloupec)). Vyberte End Sub
Vysvětlení kódu: Nejprve jsme definovali název subjektu kódu, poté jsme definovali všechny proměnné. Poté jsme definovali, jaký bude náš poslední řádek a poslední sloupec.
- Stisknutím klávesy F5 spustíte makro v aplikaci Excel
- V listu budou vybrána všechna data
Pokud chcete zkopírovat stejná data a vložit je, použijte níže uvedený kód:-
Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1) .End (xlUp) .Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns .count). Konec (xlToLeft). Sloupcové pracovní listy („List1“). Rozsah („A1“, buňky (poslední řádek, poslední sloupec)). Kopírovat listy („List2“). Rozsah („A1“) Koncový díl
Spusťte kód, všechna data se zkopírují a vloží do sheet2.
Toto je způsob, jakým můžeme napsat makro pro výběr dat z první buňky do poslední aktivní buňky a poté je vložit do jiného listu v aplikaci Microsoft Excel.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail.