Excel - Копиране на редове въз основа на условие

Microsoft Office Software идва с приложението Excel, което се превърна в приложение за електронни таблици, което се използва в цял свят благодарение на удобната за потребителя система за сортиране на данни. Приложението Excel Office Software ви позволява да копирате данните, съдържащи се в един ред, в друг ред и да копирате същите данни от един ред в няколко реда, като използвате свойството Fill. Това ви спестява необходимостта от повторно въвеждане на информацията. Също така е възможно да се копират редове от един работен лист, който има заглавия на ред 1 и данни, започващи от ред 2 към друг работен лист, където колоната съдържа термини. От вас се изисква да напишете прост код за копиране на редове от листа към друг работен лист.

Проблем

Как мога Excel да копира целия ред данни от работен лист, наречен Инвентаризация на служителите, в друг работен лист, наречен EE, ако колона Q съдържа TERM. Опитах почти всичко, но нищо не работи. Моля помогнете!

Решение

Предположения за този код:

1. Листът на инвентаризацията на служителите има заглавия в първия ред, така че ще започне проверка на данните в ред 2.

2. Колона Q няма празни клетки.

3. Листът за енергийни разходи ще има заглавия в първия ред, така че данните ще започнат да се копират в ред 2. \ t

 Set i = Sheets ("Служебен инвентар") Set e = Sheets ("EEs") Dim d Dim jd = 1 j = 2 До Докато IsEmpty (i.Range ("Q" & j)) Ако i.Range ("Q "& j) =" TERM "Тогава d = d + 1 e.Rows (d) .Value = i.Rows (j) .Value End Ако j = j + 1 Loop