Excel - kopeerige ridu seisundi alusel

Microsoft Office'i tarkvaraga on kaasas Exceli rakendus, mis on muutunud arvutustabeli rakenduseks, mida kasutatakse kogu maailmas tänu kasutajasõbralikule andmete sorteerimissüsteemile. Rakenduse Excel Office tarkvararakendus võimaldab teil kopeerida ühes reas sisalduvaid andmeid teisele reale ja kopeerida samad andmed ühest reast mitmele reale, kasutades täitmist. See säästab teid teabe uuesti sisestamisest. Samuti on võimalik ridu ühest töölehest kopeerida, millel on 1. rea pealkirjad ja 2. reas olevad andmed teisele töölehele, kus veerg sisaldab tingimusi. Te peate kirjutama lihtsa koodi, et kopeerida ridu oma lehelt teisele töölehele.

Probleem

Kuidas ma saan Exceli kopeerida kogu töölehe töölehest nimega Töötajate inventuur teise töölehele, mida nimetatakse EE-ks, kui veerg Q sisaldab TERM-i. Olen proovinud peaaegu kõike, kuid midagi ei tööta. Palun aidake!

Lahendus

Selle koodi eeldused:

1. Töötajate inventuuri lehel on esimeses reas pealkirjad, nii et see hakkab kontrollima andmeid reas 2.

2. Veerus Q puuduvad tühjad lahtrid.

3. EE-lehel on esimeses reas pealkirjad, nii et andmed alustatakse kopeerimist 2. reas.

 Komplekt i = lehed ("Töötajate inventuur") Set e = lehed ("EE") Dim d Dim jd = 1 j = 2 Kas kuni tühimiseni (i.Range ("Q" ja j)) Kui i.Range ("Q "& j) =" TERM "Siis d = d + 1 e.Rida (d) .Väärtus = i.Rida (j) .Väärtuse lõpp Kui j = j + 1 silmus