Bir seferde tüm benzer satır numaralarını silmenin bir yolunu istiyorsanız, bu makale tam size göre.
Bu yazımızda birden çok çalışma sayfasında aynı satırdan makrolar aracılığıyla nasıl kurtulabileceğimizi öğreneceğiz.
Soru): VBA kodunu kullanarak aynı satırı birden çok çalışma sayfasında silmek istiyorum. İstediğim şey, geçerli dosyada kaç sayfa olduğuna bakılmaksızın çalışma kitabındaki tüm satırları silmek için kod; Tüm 5 sayfadan seçilen satır numarasını silmek istiyorum.
Öncelikle aynı lokasyondaki tüm çalışma sayfalarına benzer verileri girelim.
Aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
Standart modüle aşağıdaki kodu girin:-
Alt DeleteRows()
Dim shtArr, i As Long, xx As Long
shtArr = Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5")
xx = Seçim.Satır
i = LBound(shtArr) için UBound(shtArr) için
Sheets(shtArr(i))).Rows(xx).EntireRow.Delete
sonraki ben
Alt Bitiş
- Şimdi imleci herhangi bir A1 hücresine ve Sayfa1'e yerleştirin.
- basmak ALT + F8 makroyu çalıştırmak için; Seçilen satır numarasının tüm sayfalarda silindiğini göreceksiniz.
- Aşağıdaki anlık görüntü, örnek olarak sayfa 1 ve sayfa 2 verilerini göstermektedir; Bu alıştırmayı yaptığınızda, ilgili tüm sayfalarda benzer bir çözüm bulacaksınız.
- İmleci herhangi bir A2 hücresine ve Sayfa2'ye yerleştirirsek, sonuç da benzer olacaktır.
Bu durumda benzer satır numarasını VBA kodunu kullanarak silebiliriz.
İndir- Örnek dosya- xlsm