Utilice vbs para eliminar toda la fila de datos en Excel con una fecha anterior a un día determinado
Sub?Clear()
'Eliminar datos antes de una fecha determinada
Dim?da?As?Date
da?=?InputBox("Por favor, introduce tu Fecha límite para eliminar: preste atención al formato, como?2014-10-25",? "Enter",?Default)
If?MsgBox("El programa "?&?da? &? "Los registros anteriores a "(excluidos los registros de esta fecha) se eliminarán. Los datos no se pueden recuperar después de la eliminación. ¿Desea continuar?",?vbOKCancel,?"
Application.DisplayAlerts?=?False
Dim?cRow%,?x%
cRow?=?[C65536].End(xlUp).Row
¿Para?x?=?cFila?A?2?
Si?Rango("C"? &?x)?
Filas(x). Eliminar
¿Fin?Si
Siguiente?x
Application.DisplayAlerts?=?True
¿Fin? Si
¿Cancelar?=?Verdadero
¿Fin?