Excel - 条件に基づいて行をコピーする

Microsoft Office SoftwareにはExcelアプリケーションが付属しています。このExcelアプリケーションは、使いやすいデータソートシステムのおかげで、世界中で使用されているスプレッドシートアプリケーションになりました。 Excel Office Softwareアプリケーションでは、Fillプロパティを使用して、ある行に含まれるデータを別の行にコピーし、同じデータを1つの行から複数の行にコピーすることができます。情報を再入力する手間が省けます。 1行目の見出しと2行目から始まるデータを持つ1つのワークシートから列に用語が含まれている別のワークシートに行をコピーすることもできます。シートから別のワークシートに行をコピーするための簡単なコードを書く必要があります。

問題

Q列にTERMが含まれている場合、ExcelにEmployee InventoryというワークシートからEEという別のワークシートにデータの行全体をコピーさせるにはどうすればよいですか。 私はほとんどすべてを試したが何も働いていない。 助けてください！

溶液

このコードの前提：

1. Employee Inventoryシートの1行目に見出しがあるため、2行目のデータの確認が開始されます。

2.列Qには空のセルがありません。

3. EEシートの1行目に見出しがあるので、データは2行目からコピーを開始します。

 i = Sheets（ "Employee Inventory"）に設定i = Sheets（ "EEs"）Dim d Dim jd = 1 j = 2 IsEmpty（i.Range（ "Q"＆j）まで）を実行"＆j）=" TERM "d = d + 1 e.行（d）。値= i。行（j）。値終了j = j + 1の場合ループ