Índice
A seguinte sub-rotina excluirá cada linha em um intervalo onde o valor na coluna A começa com um pedaço de texto prescrito:
| 12345678910111213 | Sub Delete_Rows (intervalo_de_dados como intervalo, texto como string)Dim Row_Counter As IntegerPara Row_Counter = Data_range.Rows.Count para 1 etapa -1Se intervalo_de_dados não for nada, entãoSair do SubFim seIf UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text) ThenData_range.Cells (Row_Counter, 1) .EntireRow.DeleteFim sePróximo Row_CounterEnd Sub |
Por exemplo, Delete_Rows (Sheets ("Sheet1"). Range ("A1: E23", "Dog") excluirá todas as linhas no intervalo A1: E23 onde o valor na Coluna A começa com a palavra "Dog". Observe que o uso de Ucase significa que a fórmula é INSENSÍVEL a maiúsculas e minúsculas, ou seja, as células que começam com DOG, Dog, DoG ou dog serão todas deletadas.
Esse:
Se tornará:
