¿Cómo localizar rápidamente una fila en blanco en Excel y colocarla en la primera fila? Por ejemplo, si hay datos en las filas 1 a 10, quiero pasar directamente a la fila 1.

Abra su libro de trabajo, presione ALT F11, busque el ?thiswork correspondiente debajo del libro de trabajo de la izquierda, haga doble clic en él y pegue el código en la ventana emergente.

Por supuesto, las macros deben estar habilitadas al abrir el libro. Private?Sub?Workbook_Open()

Dim?R?As?Range

Establecer?R?=?Cells.Find("*",?[A1],?,? ,?xlByRows,?xlPrevious,?,?,?False)

Si?R?¿No es nada?Entonces

Aplicación.Ir a?[A1],?True

Else

Application.Goto?Range("A"?amp;?R.Row? ?1),?True

Fin?If

Fin?Sub

Privado?Sub?Workbook_SheetActivate(ByVal?Sh?As?Object)

Dim?R?As?Range

Establecer?R ?=?Sh.Cells.Find("*",?Sh.[A1],?,?,?xlByRows,?xlPrevious,?,?,?False)

If?R?Is? ¿Nada? Entonces

Application.Goto?Sh.[A1],?True

Else

Application.Goto?Sh.Range("A"?amp ;?R.Fila? ?1),?Verdadero

Fin?Si

Fin?Sub