Sommario
La seguente subroutine eliminerà ogni riga in un intervallo in cui il valore nella colonna A inizia con una parte di testo prescritta:
| 12345678910111213 | Sub Delete_Rows(Data_range As Range, Text As String)Dim Row_Counter As IntegerPer Row_Counter = Data_range.Rows.Count To 1 Step -1Se Data_range non è niente alloraEsci SottoFinisci seIf UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) ThenData_range.Cells(Row_Counter, 1).EntireRow.DeleteFinisci seContatore riga successivaFine sottotitolo |
Ad esempio Delete_Rows(Sheets(“Sheet1”).Range(“A1:E23”,”Dog”) eliminerà tutte le righe nell'intervallo A1:E23 dove il valore nella colonna A inizia con la parola “Dog”. Nota il l'uso di Ucase significa che le formule sono case INSENSITIVE, cioè le celle che iniziano con DOG, Dog, DoG o dog verranno tutte eliminate.
Questo:
Diventerà:
