„Excel“ - nukopijuokite eilutes pagal sąlygą

„Microsoft Office“ programinėje įrangoje yra „Excel“ programa, kuri tapo patogia naudoti skaičiuoklės programa visame pasaulyje, nes ji yra patogi duomenų rūšiavimo sistemai. Programa „Excel Office“ programinė įranga leidžia kopijuoti vienoje eilutėje esančius duomenis į kitą eilutę ir kopijuoti tuos pačius duomenis iš vienos eilutės į kelias eilutes, naudodami užpildymo funkciją. Jis taupo jus iš naujo įvesti informaciją. Taip pat galima kopijuoti eilutes iš vieno darbalapio, kuriame antraštės antroje eilutėje ir duomenys prasideda nuo 2 eilutės iki kito darbalapio, kuriame stulpelyje yra terminų. Jūs turite parašyti paprastą kodą, kad kopijuotumėte eilutes iš savo lapo į kitą darbalapį.

Problema

Kaip galiu „Excel“ kopijuoti visą duomenų eilutę iš darbalapio, vadinamo „Darbuotojų inventorius“, į kitą darbalapį, vadinamą „EE“, jei „Q“ stulpelyje yra TERM. Bandžiau beveik viską, bet nieko neveikia. Prašome padėti!

Sprendimas

Šio kodo prielaidos:

1. Darbuotojų inventoriaus lape yra eilutės pirmoje eilutėje, todėl ji pradės tikrinti 2 eilutės duomenis.

2. Q stulpelyje nėra tuščių langelių.

3. EE lape bus eilutės pirmoje eilutėje, todėl duomenys bus pradėti kopijuoti 2 eilutėje.

 Nustatyti i = lapus („Darbuotojų inventorius“) Nustatyti e = lapus („EE“) Dim d Dim jd = 1 j = 2 Iki išnykimo (i.Range („Q“ ir j)) Jei i.Range („Q "& j) =" TERM "Tada d = d + 1 e.Rows (d) .Value = i.Rows (j) .Value End Jei j = j + 1 kilpa