Cuando importa datos de una fuente externa, es posible que tenga la necesidad de eliminar datos superfluos de una hoja de trabajo. Por ejemplo, es posible que necesite eliminar cada segunda línea de los datos o cada quinta línea.

Hacer esto a mano puede ser tedioso y propenso a errores. Afortunadamente, puede crear una macro para ayudar a eliminar tanto el tedio como los errores.

La siguiente macro, DeleteRows, eliminará cada X filas de su hoja de trabajo. Todo lo que tiene que hacer es seleccionar las filas a las que desea aplicarlo.

La macro, tal como está escrita, eliminará cada segunda fila. Por lo tanto, si desea eliminar la primera, tercera, quinta y séptima filas que comienzan con la fila 10, debe seleccionar las filas 10 a 16 y luego ejecutar esta macro. Como resultado, las filas 10 (la primera fila), 12 (la tercera fila), 14 (la quinta fila) y 16 (la séptima fila) se eliminan.

Sub DeleteRows()

Dim iStart As Integer     Dim iEnd As Integer     Dim iCount As Integer     Dim iStep As Integer     Dim J As Integer

iStep = 2    'Delete every 2nd row     Application.ScreenUpdating = False     iStart = 1     iCount = Selection.Rows.Count     'Find ending row to start deleting     For J = iStart To iCount Step iStep         iEnd = J     Next

Do While iEnd >= iStart         Selection.Rows(iEnd).Delete         iEnd = iEnd — iStep     Loop     Application.ScreenUpdating = True End Sub

Si desea eliminar algún otro múltiplo de líneas, simplemente cambie la configuración de la variable iStep. Por ejemplo, si desea eliminar cada quinta fila, cambie iStep de 2 a 5. (Solo necesita hacer un único cambio, en la declaración iStep = 2).

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2292) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

enlace: / excelribbon-Deleting_Every_X_Rows [Eliminando cada X filas].