Andmed toimetuleku kohta , mis põhineb kriteeriumidel, ühelt lehelt teisele, on üks sageli tehtavaid ülesandeid Excelis. Kui teil on palju ridu ja soovite neid kopeerida teisele lehele mõne kriteeriumi alusel, võib see olla üsna tüütu ja aeganõudev. Kuid Microsoft Visual Basic rakendus (VBA) saate luua makrosid, millega saate hõlpsasti kopeerida andmeid ühelt lehelt teisele erinevate kriteeriumide alusel. Selles artiklis näitan teile kuidas saab ridu kopeerida teisele töölehele, mis põhineb 2 erinevat tüüpi kriteeriumil, kasutades Exceli VBA-d. .

Oletame, et teil on järgmine andmekogum töölehel nimega " Andmed ", kus on antud erinevate müüjate müük ja müügipiirkonnad. Nüüd soovite kopeerida teatud ridu teatud kriteeriumide alusel teisele lehele.

Lae alla praktiline töövihik

2 viisi ridade kopeerimiseks teisele töölehele Exceli VBA kriteeriumide alusel

1. Ridade kopeerimine teisele töölehele tekstikriteeriumide alusel

Selles demonstratsioonis näitan teile, kuidas kopeerida ridu ühest töölehest teise tekstikriteeriumide alusel. Oletame, et soovite kopeerida andmeid müüjate kohta, kes müüvad aastal Virginia töölehel nimega Piirkondlik müük kasutades Excelit VBA . selleks, et seda teha, kõigepealt,

➤ Press ALT+F11 avada VBA aken.

In the VBA aken,

➤ Klõpsake nupule Sisesta vahekaart ja valige Moodul .

See avab Moodul(kood) aknast. Nüüd,

➤ Sisestage järgmine kood faili Moodul(kood) aken,

 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 

Kood loob makro nimega Copy_Criteria_Text mis otsib Virginiat veerus C praeguse töölehe ja tagastab need read, mis sisaldavad Virginiat töölehel nimega Piirkondlik müük (Sheet3).

Pärast seda,

➤ Sulge või minimeeri VBA aken.

➤ Press ALT+F8

See avab Makro aken.

➤ Valige Copy_Criteria_Text aastal Makro nimi kasti ja klõpsake nuppu Käivita .

Selle tulemusena kopeeritakse Virginia ridu töölehel nimega Piirkondlik müük

Loe edasi: Kuidas kopeerida ridu automaatselt Excelis teisele lehele (4 meetodit)

2. Ridade kopeerimine teisele töölehele numbrikriteeriumide alusel

Nüüd näitan teile, kuidas saate kopeerida ridu ühest töölehest teisele töölehele numbrikriteeriumide alusel. Oletame, et soovite kopeerida andmed müügi kohta, mis on suurem kui $100000, töölehele nimega Top müük . selleks, et seda teha, kõigepealt,

➤ Press ALT+F11 avada VBA aken.

In the VBA aken,

➤ Klõpsake nupule Sisesta vahekaart ja valige Moodul .

See avab Moodul(kood) aknast. Nüüd,

➤ Sisestage järgmine kood faili Moodul(kood) aken,

 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 

Kood loob makro nimega Copy_Criteria_Number mis otsib väärtusi, mis on suuremad kui 100000 veerus D töölehe nimega Andmed ja tagastab read, mis sisaldavad müügiväärtusi üle 100000 $ töölehel nimega Top müük (Sheet4).

Pärast seda,

➤ Sulge või minimeeri VBA aken.

➤ Press ALT+F8

See avab Makro aken.

➤ Valige Copy_Criteria_Number aastal Makro nimi kasti ja klõpsake nuppu Käivita .

Selle tulemusena kopeeritakse read, mis sisaldavad müügiväärtusi üle 100000 dollari, reale Top müük tööleht.

Loe edasi: Kuidas kopeerida mitu rida Excelis makro abil (4 näidet)

Kokkuvõte

Selle artikli kahe meetodi abil saate Excel VBA abil kopeerida ridu ühest töölehest teisele töölehele erinevate kriteeriumide alusel. Esimest meetodit saate kasutada tekstikriteeriumide puhul ja teist meetodit numbrikriteeriumide puhul. Kui teil on mis tahes liiki segadust mõne meetodi kohta, jätke julgelt kommentaar.