Excel - Copiați rândurile bazate pe o condiție

Software-ul Microsoft Office vine cu aplicația Excel, care a devenit o aplicație de calcul tabelar folosită în întreaga lume datorită sistemului său ușor de sortare a datelor. Aplicația Excel Office Software vă permite să copiați datele conținute într-un rând într-un alt rând și să copiați aceleași date de la un rând la mai multe rânduri utilizând proprietatea Completare. Aceasta vă salvează de la a trebui să retipăriți informațiile. Este, de asemenea, posibil să copiați rânduri dintr-o foaie de lucru, care are rubrici pe rândul 1 și date care încep de la rândul 2 la o altă foaie de lucru în care coloana conține termeni. Vi se cere să scrieți un cod simplu pentru a copia rândurile din foaia dvs. într-o altă foaie de lucru.

Problema

Cum pot copia Excel întregul rând de date dintr-o foaie de lucru intitulată Employee Inventory într-o altă foaie de lucru numită EE, dacă coloana Q conține TERM. Am încercat aproape totul, dar nimic nu funcționează. Te rog ajuta-ma!

Soluţie

Ipoteze pentru acest cod:

1. Fișa Inventarul angajaților are rubrici în rândul 1, astfel încât va începe verificarea datelor din rândul 2.

2. Coloana Q nu are celule goale.

3. Fișa EE va avea titluri în rândul 1, astfel încât datele vor începe să fie copiate în rândul 2.

 Setați i = Sheets ("Inventarul angajaților") Set e = Sheets ("EEs") Dim d Dim jd = 1 j = 2 Do Until IsEmpty (i.Range "j" = "TERM" Atunci d = d + 1 e.Rows (d) .Value = i.Rows (j) .Value End Dacă j = j + 1 Loop