Excel - Bir koşulu temel alarak satırları kopyala

Microsoft Office Yazılımı, kullanıcı dostu veri sıralama sistemi sayesinde dünya çapında kullanılan bir elektronik tablo uygulaması haline gelen Excel uygulaması ile birlikte geliyor. Excel Office Yazılımı uygulaması, bir satırdaki verileri başka bir satıra kopyalamanıza ve aynı verileri Dolgu özelliğini kullanarak bir satırdan birden çok satıra kopyalamanıza olanak tanır. Bilgiyi yeniden yazmak zorunda kalmamaktan kurtarır. Satır 1’de başlıkları olan bir çalışma sayfasından satırları ve satır 2’den başlayarak sütunun terimleri içeren başka bir çalışma sayfasına verileri kopyalamak da mümkündür. Satırları sayfanızdan başka bir çalışma sayfasına kopyalamak için basit bir kod yazmanız gerekir.

Konu

Eğer Q sütunu TERM içeriyorsa, Excel'in, Çalışan Envanteri adlı bir çalışma sayfasındaki tüm veri satırını EE adlı başka bir çalışma sayfasına nasıl kopyalamasını sağlayabilirim. Neredeyse her şeyi denedim ama hiçbir şey çalışmıyor. Lütfen yardım et!

Çözüm

Bu kod için varsayımlar:

1. Çalışan Envanteri sayfasında birinci satırda başlıklar vardır, böylece 2. satırdaki verileri kontrol etmeye başlayacaktır.

2. Sütun Q'da boş hücre yok.

3. EEs sayfasında birinci satırda başlıklar olacaktır, böylece veriler satır 2'de kopyalamaya başlayacaktır.

 Set i = Sayfalar ("Çalışan Envanteri") Set e = Sayfalar ("EEs") Dim d Dim jd = 1 j = 2 IsEmpty'ye Kadar Yapın (i.Range ("Q" & j)) i.Range ("Q "& j) =" TERM "Sonra d = d + 1 e.Rows (d) .Value = i.Rows (j) .Value End Eğer j = j + 1 Döngüse