Excel - kopējiet rindas, pamatojoties uz nosacījumu

Microsoft Office programmatūra ir aprīkota ar Excel lietojumprogrammu, kas kļuvusi par izklājlapu lietojumprogrammu, ko izmanto visā pasaulē, pateicoties lietotājam draudzīgai datu šķirošanas sistēmai. Programma Excel Office programmatūra ļauj kopēt vienā rindā esošos datus uz citu rindu un kopēt tos pašus datus no vienas rindas uz vairākām rindām, izmantojot funkciju Aizpildīt. Tas ietaupa jums no informācijas atkārtotas ievadīšanas. Ir iespējams arī kopēt rindas no vienas darblapas, kur 1. rindā ir virsraksti un dati no 2. rindas uz citu darblapu, kurā slejā ir termini. Jums ir nepieciešams rakstīt vienkāršu kodu, lai kopētu rindas no lapas uz citu darblapu.

Izdevums

Kā var Excel kopēt visu datu rindu no darblapas, ko sauc par Darbinieku inventarizāciju, uz citu darblapu, ko sauc par EE, ja Q slejā ir TERM. Esmu mēģinājis gandrīz visu, bet nekas nedarbojas. Lūdzu, palīdziet!

Risinājums

Pieņēmumi par šo kodu:

1. Darbinieku inventāra lapā ir rindas pirmajā rindā, lai tā sāktu pārbaudīt datus 2. rindā.

2. Q slejā nav tukšas šūnas.

3. EE lapai pirmajā rindā būs virsraksti, lai dati sāktu kopēt 2. rindā.

 Komplekts i = Loksnes ("Darbinieku inventarizācija") Set e = Loksnes ("EE") Dim d Dim jd = 1 j = 2 Darīt līdz iztukšošanai (i.Rangs ("Q" un j)) Ja i.Range ("Q "& j) =" TERM "Tad d = d + 1 e.Rows (d) .Value = i.Rows (j) .Vērtības beigas Ja j = j + 1 cilpa