Πίνακας περιεχομένων
Η ακόλουθη υπορουτίνα θα διαγράψει κάθε γραμμή σε μια περιοχή όπου η τιμή στη στήλη Α ξεκινά με ένα καθορισμένο κομμάτι κειμένου:
| 12345678910111213 | Sub Delete_Rows (Data_range As Range, Text as String)Dim Row_Counter As IntegerΓια Row_Counter = Data_range.Rows.Count To 1 Step -1Εάν το Data_range δεν είναι τίποτα, τότεΈξοδος SubΤέλος εανΕάν UCase (Αριστερά (Data_range.Cells (Row_Counter, 1). Value, Len (Text))) = UCase (Text) ΤότεData_range.Cells (Row_Counter, 1) .EntireRow.DeleteΤέλος εανΕπόμενο Row_CounterΤέλος υπο |
Για παράδειγμα Delete_Rows (Φύλλα ("Sheet1"). Το εύρος ("A1: E23", "Dog") θα διαγράψει όλες τις σειρές στο εύρος A1: E23 όπου η τιμή στη στήλη A ξεκινά με τη λέξη "Dog". Σημειώστε Η χρήση του Ucase σημαίνει ότι οι τύποι είναι υπόθεση ΑΣΥΝΗΘΗΤΟΙ, δηλαδή τα κύτταρα που ξεκινούν με οποιοδήποτε σκυλί, σκύλο, σκύλο ή σκύλο θα διαγραφούν.
Αυτό:
Θα γίνει:
