Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice vbs para eliminar toda la fila de datos en Excel con una fecha anterior a un día determinado

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?