Tabla de contenido
La siguiente subrutina eliminará cada fila en un rango donde el valor en la Columna A comienza con un fragmento de texto prescrito:
| 12345678910111213 | Sub Delete_Rows (rango de datos como rango, texto como cadena)Dim Row_Counter como enteroPara Row_Counter = Data_range.Rows.Count To 1 Step -1Si Data_range no es nada, entoncesSalir de SubTerminara siSi UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text) EntoncesData_range.Cells (Row_Counter, 1) .EntireRow.DeleteTerminara siSiguiente Row_CounterEnd Sub |
Por ejemplo Delete_Rows (Sheets ("Sheet1"). Range ("A1: E23", "Dog") eliminará todas las filas en el rango A1: E23 donde el valor en la Columna A comienza con la palabra "Dog". Tenga en cuenta el El uso de Ucase significa que las fórmulas son INSENSIBLES a mayúsculas y minúsculas, es decir, las celdas que comienzan con DOG, Dog, DoG o dog se eliminarán.
Esta:
Se convertirá:
