Excel - Menyalin baris berdasarkan keadaan

Perisian Microsoft Office dilengkapi dengan aplikasi Excel, yang telah menjadi aplikasi spreadsheet yang digunakan di seluruh dunia berkat sistem sorting data mesra pengguna. Aplikasi Perisian Pejabat Excel membolehkan anda menyalin data yang terkandung dalam satu baris ke baris lain dan menyalin data yang sama dari satu baris ke baris berganda menggunakan harta Isi. Ia menyelamatkan anda daripada perlu mengecup semula maklumat. Ia juga mungkin untuk menyalin baris dari satu lembaran kerja, yang mempunyai tajuk pada baris 1 dan data bermula dari baris 2 ke lembaran kerja lain di mana lajuran mengandungi istilah. Anda dikehendaki menulis kod ringkas untuk menyalin baris dari helaian anda ke helaian kerja yang lain.

Isu

Bagaimanakah saya boleh menyalin keseluruhan baris data dari lembaran kerja yang dipanggil Inventori Pekerja ke lembaran kerja lain yang dipanggil EEs, jika lajur Q mengandungi TERM. Saya telah mencuba hampir segala-galanya tetapi tidak ada yang berfungsi. Tolong bantu!

Penyelesaian

Andaian untuk kod ini:

1. Lembaran Inventori Pekerja mempunyai tajuk dalam satu baris sehingga ia akan mula menyemak data dalam baris 2.

2. Lajur Q tidak mempunyai sebarang sel kosong.

3. Lembaran EEs akan mempunyai tajuk di baris satu supaya data akan mula menyalin dalam baris 2.

 Tetapkan i = Sheets ("Inventory Pekerja") Set e = Sheets ("EEs") Dim d Dim jd = 1 j = 2 Do Until IsEmpty (i.Range ("Q" & j) "& j) =" TERM "Kemudian d = d + 1 e.Rows (d) .Value = i.Rows (j) .Value End Jika j = j + 1 Loop 

Catatan

Terima kasih kepada Pembantu untuk hujung ini di forum.

Artikel Sebelumnya Artikel Seterusnya

Tip-Tip Utama