Excel - Kopiuj wiersze na podstawie warunku

Microsoft Office Software jest dostarczany z aplikacją Excel, która stała się aplikacją arkusza kalkulacyjnego używaną na całym świecie dzięki przyjaznemu dla użytkownika systemowi sortowania danych. Aplikacja Excel Office Software umożliwia kopiowanie danych zawartych w jednym wierszu do innego wiersza i kopiowanie tych samych danych z jednego wiersza do wielu wierszy przy użyciu właściwości Wypełnienie. Pozwala to uniknąć konieczności ponownego wpisywania informacji. Możliwe jest również kopiowanie wierszy z jednego arkusza, który ma nagłówki w wierszu 1 i dane począwszy od wiersza 2 do innego arkusza, w którym kolumna zawiera terminy. Musisz napisać prosty kod, aby skopiować wiersze z arkusza do innego arkusza.

Kwestia

W jaki sposób mogę skopiować program Excel z całego wiersza danych z arkusza o nazwie Spis pracowników do innego arkusza o nazwie EE, jeśli kolumna Q zawiera TERMIN. Próbowałem prawie wszystkiego, ale nic nie działa. Proszę pomóż!

Rozwiązanie

Założenia dla tego kodu:

1. Arkusz Inventory Inventory ma nagłówki w wierszu pierwszym, więc rozpocznie sprawdzanie danych w wierszu 2.

2. Kolumna Q nie ma pustych komórek.

3. Arkusz EEs będzie miał nagłówki w wierszu pierwszym, więc dane zaczną kopiować w wierszu 2.

 Set i = Arkusze („Inventory Inventory”) Set e = Sheets („EEs”) Dim d Dim jd = 1 j = 2 Do Until IsEmpty (i.Range („Q” & j)) If i.Range („Q „& j) =„ TERM ”Następnie d = d + 1 e.Rows (d) .Value = i.Rows (j) .Value End If j = j + 1 Loop