Seleccione cada enésima fila en Excel

Tengo una hoja de cálculo Excel con miles de filas. Quiero seleccionar cada 7ma fila de esa hoja de cálculo. (Por "seleccionar", me refiero a eliminar todas las otras filas, o copiar las filas seleccionadas en una nueva hoja de trabajo).

¿Cuál es la forma más fácil de hacerlo en Excel 2003?

Vea también: Seleccione cada enésima fila en Números

1. Insertar una columna
2. En la primera fila, inserte la fórmula = MOD (ROW (), 7)
3. Copia
4. Copiar / pegar valores / especiales
5. Datos / Filtra los que quieras (0 o 6, probablemente)
6. Eliminar el resto de las filas Eliminar filtro Eliminar columna

Personalmente, grabaría una macro para hacer las primeras tres o cuatro líneas (en incrementos de 7 filas, por supuesto), y copiaría las líneas en una nueva hoja. Luego editaría la macro para usar un bucle que cuente el número de filas pobladas en la hoja, con un paso de 7.

Ejemplo de pseudocódigo:

Dim i as Integer

For i = 1 To 1000 Step 7
    'Add current row to selection
    ...
Next i

'Copy the selected rows to new sheet
...

Realmente solo terminando la idea que comenzó Randolph Potter ...

Para el registro, no creo que alguna vez se te ocurra esto grabando. La grabación de macros es una buena forma de familiarizarse con el Modelo de objetos de Excel, pero no es una muy buena forma de escribir funciones reutilizables.

Option Explicit

'A simple test that copies every 7th row from the active sheet to a new sheet.
Sub SimpleTest()
    Dim r As Range
    Dim ws As Worksheet

    Set r = GetEveryNthRow(7)
    If Not r Is Nothing Then
        Set ws = Worksheets.Add(Before:=Sheets(1))

        r.Copy ws.Range("A1")
    Else
        MsgBox "Nothing came back from GetEveryNthRow"
    End If
    Set ws = Nothing
    Set r = Nothing
End Sub

'
Function GetEveryNthRow(ByVal NthRow As Long) As Range
    Dim keepRows As Range
    Dim r As Range

    If NthRow > 0 Then
        Set keepRows = Rows(1)
        For Each r In ActiveSheet.UsedRange.Rows
            If (r.Row Mod NthRow) = 0 Then
                Set keepRows = Union(keepRows, Rows(r.Row))
            End If
        Next r
        Set GetEveryNthRow = keepRows
    Else
        MsgBox "The row multiple provided must be greater than 0"
    End If

    Set keepRows = Nothing
End Function

1. Insertar una columna.
2. En la primera fila allí, inserte 1.
3. Copie hacia abajo a la fila 7 con Ctrldeprimido.
4. Toma ese bloque y haz lo mismo hasta el final.
5. Datos / Filtre los que no desea y elimínelos.
6. Eliminar la columna insertada.

para seleccionar cada 7ma fila hay una MANERA MÁS FÁCIL: en las primeras 7 filas de su columna, pero una (la primera) escribe algo dentro. Luego selecciona estas 7 filas y las copia en toda la columna. Ahora lo que necesita es ir a SELECCIONAR-> IR A ESPECIAL-> seleccionar EN BLANCO-> OK. Cada una de las 7 filas tiene una selección. Ahora puedes hacer lo que quieras. ¡Disfrutar!

por cada 7ma fila,

1. Insertar una columna
2. En la fila 1 a la fila 6 ponga una "X"
3. en la fila 7 poner 1,
4. autocompletar su columna con ese bloque
5. Use "Eliminar duplicados" en esa columna
6. Eliminar primera fila (con la primera "X").
7. Eliminar columna agregada