Excel'deki her n. Satırı seçin

Binlerce satır içeren bir Excel e-tablonuz var. Bu e-tablodan her 7. satırı seçmek istiyorum. ("Seç" ile, diğer satırların tümünü silmek veya seçilen satırları yeni bir çalışma sayfasına kopyalamak anlamına gelir.)

Excel 2003'te bunu yapmanın en kolay yolu nedir?

Ayrıca bkz: Her n. Satırı Sayılar'dan seçin

1. Sütun ekle
2. İlk satırda formül ekle = MOD (ROW (), 7)
3. Aşağı kopyala
4. Özel / değerleri kopyala / yapıştır
5. Veri / İstediklerinizi filtreleyin (muhtemelen 0 veya 6)
6. Diğer satırları sil Filtreyi kaldır Sütunu sil

Şahsen, ilk üç veya dört satırı (elbette 7 satırlık artışlarla) yapmak için bir makro kaydeder ve satırları yeni bir sayfaya kopyalarım. Ardından, 7 adımda sayfadaki doldurulmuş satırların sayısına sayılacak bir döngü kullanmak için makroyu düzenlerdim.

Sözde kod örneği:

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
...

Gerçekten Randolph Potter'ın başladığı fikri bitirince ....

Kayıt için, bunu kayıt yaparak bulabileceğinizi sanmıyorum. Makro kaydı, Excel Nesne Modeli'ni tanımanın iyi bir yoludur, ancak yeniden kullanılabilir işlevler yazmak için çok iyi bir yol değildir.

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. Bir sütun ekleyin.
2. Buradaki ilk satıra ekleyin 1.
3. Basılı durumdayken 7. satıra kopyalayın Ctrl.
4. O bloğu tut ve sonuna kadar tekrarla.
5. Vermek / istemediklerinizi filtreleyin ve bunları silin.
6. Eklenen sütunu silin.

her 7. satırı seçmek için bir KOLAY YOL vardır: sütununuzun ilk 7 satırında ancak bir (ilkinde) içine bir şey yazarsınız. Sonra bu 7 satırı seçip tüm sütuna kopyalarsınız. Şimdi ihtiyacınız olan sadece SELECT-> SPECIAL'A GİT-> BLANKS-> OK'e gitmek. Her 7 satıra bir seçiminiz var. Şimdi ne istersen yapabilirsin. Zevk almak!

her 7. sıra için,

1. Sütun ekle
2. Satır 1'den satır 6'ya "X" koyun
3. satır 7 koymak 1,
4. sütununuzu bu blokla otomatik doldur
5. Bu sütunda "Yinelenenleri Kaldır" ı kullanın
6. 1. satırı silin (1. "X" ile).
7. Eklenen sütunu sil