Tartalomjegyzék
Megküzdési adatok , kritériumok alapján, egyik lapról a másikra történő átmásolása az egyik leggyakrabban végzett feladat az Excelben. Ha sok sora van, és azokat egy másik lapra szeretné átmásolni valamilyen kritérium alapján, az elég fárasztó és időigényes lehet. De a Microsoft Visual Basic alkalmazás (VBA) segítségével olyan makrókat hozhat létre, amelyekkel könnyedén másolhat adatokat egyik lapról a másikra különböző kritériumok alapján. Ebben a cikkben megmutatom, hogy hogyan lehet sorokat másolni egy másik munkalapra 2 különböző típusú kritérium alapján az Excel VBA használatával .
Tegyük fel, hogy a következő adatkészlettel rendelkezik egy " Adatok ", ahol a különböző értékesítők eladásai és értékesítési területei szerepelnek. Most bizonyos sorokat szeretne bizonyos kritériumok alapján egy másik lapra másolni.
Gyakorlati munkafüzet letöltése
Sorok másolása egy másik munkalapra kritériumok alapján.xlsm2 mód a sorok másolásához egy másik munkalapra az Excel VBA kritériumai alapján
1. Sorok másolása egy másik munkalapra szöveges kritériumok alapján
Ebben a bemutatóban megmutatom, hogyan másolhat sorokat egyik munkalapról a másikra szöveges kritériumok alapján. Tegyük fel, hogy az alábbi helyeken értékesítő eladók adatait szeretné másolni Virginia egy munkalapon, amelynek neve Területi értékesítés az Excel használatával VBA Először ezt kell megtenni,
➤ Sajtó ALT+F11 a VBA ablak.
A VBA ablak,
➤ Kattintson a Beillesztés lapot, és válassza a Modul .
Megnyitja a Modul(kód) ablakot. Most,
➤ Szúrja be a következő kódot a Modul(kód) ablak,
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 End Sub A kód létrehoz egy Macro nevű Copy_Criteria_Text amely Virginia-t keresi az oszlopban C az aktuális munkalapon, és visszaadja azokat a sorokat, amelyek a Virginia nevű munkalapon találhatóak. Területi értékesítés (Sheet3).
Utána,
➤ Zárja be vagy minimalizálja a VBA ablak.
➤ Sajtó ALT+F8
Megnyitja a Makró ablak.
➤ Válassza ki Copy_Criteria_Text a Makró neve mezőt, és kattintson a Fuss .
Ennek eredményeképpen a Virginia sorok a következő nevű munkalapra kerülnek másolásra Területi értékesítés
További információ: Hogyan másolja a sorokat automatikusan az Excelben egy másik lapra (4 módszer)
2. Sorok másolása egy másik munkalapra számkritériumok alapján
Most megmutatom, hogyan másolhat sorokat az egyik munkalapból egy másik munkalapba számkritériumok alapján. Tegyük fel, hogy a 100000 $-nál nagyobb értékesítések adatait szeretné átmásolni egy másik munkalapba, amelynek a neve Top Sales Először ezt kell megtenni,
➤ Sajtó ALT+F11 a VBA ablak.
A VBA ablak,
➤ Kattintson a Beillesztés lapot, és válassza a Modul .
Megnyitja a Modul(kód) ablakot. Most,
➤ Szúrja be a következő kódot a Modul(kód) ablak,
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 A kód létrehoz egy Makró nevű Copy_Criteria_Number amely a 100000-nél nagyobb értékeket keresi az oszlopban D nevű munkalap Adatok és visszaadja azokat a sorokat, amelyek 100000 $-nál nagyobb eladási értéket tartalmaznak a következő nevű munkalapon Top Sales (Sheet4).
Utána,
➤ Zárja be vagy minimalizálja a VBA ablak.
➤ Sajtó ALT+F8
Megnyitja a Makró ablak.
➤ Válassza ki Copy_Criteria_Number a Makró neve mezőt, és kattintson a Fuss .
Ennek eredményeképpen a 100000 $-nál nagyobb értékű eladási értékeket tartalmazó sorok átmásolásra kerülnek a Top Sales munkalap.
További információ: Több sor másolása az Excelben makró segítségével (4 példa)
Következtetés
A cikk két módszerével az Excel VBA segítségével különböző kritériumok alapján másolhat sorokat az egyik munkalapról egy másik munkalapra. Az első módszert szöveges kritériumokhoz, a másodikat pedig számkritériumokhoz használhatja. Ha bármilyen típusú zavara van bármelyik módszerrel kapcsolatban, kérjük, hagyjon megjegyzést.
