Údaje o zvládaní , na základe kritérií, z jedného hárku na druhý je jednou z často vykonávaných úloh v programe Excel. Ak máte veľa riadkov a chcete ich skopírovať na iný hárok na základe nejakých kritérií, môže to byť dosť únavné a časovo náročné. Ale s Microsoft Aplikácia jazyka Visual Basic (VBA) môžete vytvoriť makrá, pomocou ktorých môžete ľahko kopírovať údaje z jedného hárku do druhého na základe rôznych kritérií. V tomto článku vám ukážem ako môžete kopírovať riadky do iného pracovného hárka na základe 2 rôznych typov kritérií pomocou Excel VBA .

Povedzme, že máte nasledujúci súbor údajov v pracovnom hárku s názvom " Údaje ", kde sú uvedené tržby a predajné oblasti rôznych predajcov. Teraz chcete skopírovať konkrétne riadky na základe určitých kritérií v inom hárku.

Stiahnite si cvičebnicu

2 spôsoby kopírovania riadkov do iného pracovného hárka na základe kritérií pomocou programu Excel VBA

1. Kopírovanie riadkov do iného pracovného hárka na základe textových kritérií

V tejto ukážke vám ukážem, ako kopírujete riadky z jedného pracovného hárka do druhého na základe textových kritérií. Predpokladajme, že chcete skopírovať údaje o predajcoch, ktorí predávajú v Virginia v pracovnom hárku s názvom Oblastný predaj pomocou programu Excel VBA Ak to chcete urobiť, najprv,

➤ Tlač ALT+F11 otvoriť VBA okno.

V VBA okno,

➤ Kliknite na Vložte a vyberte kartu Modul .

Otvorí sa Modul(Kód) Okno. Teraz,

➤ Vložte nasledujúci kód do Modul(Kód) okno,

 Sub Copy_Criteria_Text() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("C1", Range("C" & Rows.Count).End(xlUp)) .AutoFilter 1, "Virginia" On Error Resume Next .Offset(1).EntireRow.Copy Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating = TrueSheet3.Select Koniec Sub 

Kód vytvorí makro s názvom Copy_Criteria_Text ktorý bude hľadať Virgíniu v stĺpci C aktuálneho pracovného hárka a vráti riadky, ktoré obsahujú Virgíniu v pracovnom hárku s názvom Oblastný predaj (Sheet3).

Potom,

➤ Zatvorte alebo minimalizujte VBA okno.

➤ Tlač ALT+F8

Otvorí sa Makro okno.

➤ Vyberte Copy_Criteria_Text v Názov makra a kliknite na Spustiť .

Výsledkom je, že riadky s Virgíniou sa skopírujú do pracovného hárka s názvom Oblastný predaj

Prečítajte si viac: Ako automaticky kopírovať riadky v programe Excel do iného hárku (4 metódy)

2. Kopírovanie riadkov do iného pracovného hárka na základe kritérií počtu

Teraz vám ukážem, ako môžete kopírovať riadky z jedného pracovného hárka do iného pracovného hárka na základe číselných kritérií. Predpokladajme, že chcete skopírovať údaje o predaji, ktorý je vyšší ako 100 000 USD, do pracovného hárka s názvom Špičkový predaj Ak to chcete urobiť, najprv,

➤ Tlač ALT+F11 otvoriť VBA okno.

V VBA okno,

➤ Kliknite na Vložte a vyberte kartu Modul .

Otvorí sa Modul(Kód) Okno. Teraz,

➤ Vložte nasledujúci kód do Modul(Kód) okno,

 Sub Copy_Criteria_Number() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("D1", Range("D" & Rows.Count).End(xlUp)) .AutoFilter 1, ">100000" On Error Resume Next .Offset(1).EntireRow.Copy Sheet4.Range("A" & Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating =True Sheet4.Select End Sub 

Kód vytvorí makro s názvom Copy_Criteria_Number ktorý bude hľadať hodnoty väčšie ako 100000 v stĺpci D pracovného hárka s názvom Údaje a vráťte riadky, ktoré obsahujú hodnoty predaja vyššie ako 100000 USD v pracovnom hárku s názvom Špičkový predaj (Sheet4).

Potom,

➤ Zatvorte alebo minimalizujte VBA okno.

➤ Tlač ALT+F8

Otvorí sa Makro okno.

➤ Vyberte Copy_Criteria_Number v Názov makra a kliknite na Spustiť .

Výsledkom je, že riadky, ktoré obsahujú hodnoty predaja vyššie ako 100 000 USD, sa skopírujú do Špičkový predaj pracovný list.

Prečítajte si viac: Ako skopírovať viac riadkov v programe Excel pomocou makra (4 príklady)

Záver

Pomocou dvoch metód uvedených v tomto článku budete môcť kopírovať riadky z jedného pracovného hárka do iného pracovného hárka na základe rôznych kritérií pomocou programu Excel VBA. Prvú metódu môžete použiť pre textové kritériá a druhú metódu pre číselné kritériá. Ak máte akékoľvek nejasnosti týkajúce sa niektorej z metód, neváhajte zanechať komentár.