İçindekiler
Aşağıdaki Altyordam, Sütun A'daki değerin önceden belirlenmiş bir metin parçasıyla başladığı bir aralıktaki her satırı siler:
| 12345678910111213 | Sub Delete_Rows(Aralık Olarak Veri Aralığı, Dize Olarak Metin)Satır_Sayacı Tamsayı Olarak DimRow_Counter için = Data_range.Rows.Count için 1 Adım -1Data_range O Zaman Hiçbir Şey DeğilseAlt ÇıkışBitirEğer UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) iseData_range.Cells(Row_Counter, 1).EntireRow.DeleteBitirSonraki Satır_SayacıAlt Bitiş |
Örneğin, Delete_Rows(Sheets(“Sheet1”).Range(“A1:E23”,”Köpek”) A1:E23 aralığındaki tüm satırları siler, burada A Sütunundaki değer “Köpek” kelimesiyle başlar. Ucase kullanımı, formüllerin büyük/küçük harfe DUYARSIZ olduğu anlamına gelir, yani DOG, Dog, DoG veya dog'dan herhangi biriyle başlayan hücrelerin tümü silinecektir.
Bu:
Olacak:
