Cómo eliminar vtas automáticamente en Excel 2003

Microsoft Office tiene un montón de funciones programadas para ayudar a automatizar las funciones complejas y ecuaciones . No hay una función programada para borrar vtas en Excel , pero usted puede crear su propio haciendo una macro en la herramienta Editor de Visual Basic . Macros órdenes de registro, y usted puede crear su propia cuenta . Una vez creada la macro correcta , puede utilizar esta función en Excel para eliminar automáticamente todas las demás células de la hoja de cálculo con sólo ejecutar la macro en las celdas resaltadas . Instrucciones
1

Abra un nuevo libro en Excel y escriba el número " 1 " en la celda A1. Saltear la celda A2 y escriba " 2 " en la celda A3 . Repita este proceso hasta que tenga los números del 1 al 5 euros en las celdas A1 a A9. Las siguientes células deben tener las siguientes cifras: "1" para A1, "2" para A3 , "3" para el A5, "4" para A7 y " 5" para A9
2

Click. " Herramientas " y seleccione "Macro ". Haga clic en "Editor de Visual Basic . "
3

Seleccione la ficha "Insertar " y haga clic en " módulos".
4

Copia la siguiente macro y pegarlo en la hoja de Visual Basic :

Sub Delete_Every_Other_Row ()

. Dimension variables

Y = False ' Cambiar esta en True si quieren

' eliminar las filas 1 , 3, 5 , etc .

I = 1

Set XRNG = Selección

< br ' bucle una vez por cada fila de la selección.

para xCounter = 1 para xRng.Rows.Count

' >

Si Y es cierto, entonces ...

Si Y = entonces verdad

" ... eliminar toda una fila de celdas .

xRng.Cells ( I). EntireRow.Delete

' De lo contrario ...

demás

' ... incrementar yo por uno, para que podamos pasar por rango.

I = I + 1

End If

< p > ' Si Y es cierto que sea falso ; . si Y es False, que sea verdadera

Y = No Y

Siguiente xCounter

End Sub
5

Haga clic en " Cerrar y volver a Microsoft Excel " para salir , y luego probar la macro resaltando filas A1 a A9 de la hoja de cálculo Excel anteriores. Haga clic en " Herramientas ", luego " Macro " y luego haga clic en " Macros ".
6

Seleccione " Delete_Every_Other_Row " en el menú Macro y haga clic en " Ejecutar". Las filas alternas serán borrados y los números del 1 al 5 se mostrarán ahora en las celdas A1 a A5 .