エクセルの各n番目の行を選択します。

2. 最初の行に数式を挿入 =MOD(ROW(),7)
4. 特殊な値をコピー/貼り付け
5. データ/フィルタリングしたいものを除外する(0か6、たぶん)
6. 残りの行を削除する フィルタを削除する 列を削除する

1. 列を挿入します。
2. 最初の行に 1 を挿入します。
3. Ctrlキーを押しながら7行目までコピーする。
4. そのブロックを掴んで、最後まで同じことを繰り返す。
5. データ/不要なものをフィルタリングして削除する。
6. 挿入した列を削除する。

ランドルフ・ポッターが始めたアイデアを本当に完成させたところだ….

念のために言っておきますが、記録することでこれを思いつくことはないと思います。マクロの記録は、Excelオブジェクトモデルに慣れるための良い方法ですが、再利用可能な関数を書くにはあまり良い方法ではありません。

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

すべての7行目を選択するには、より簡単な方法があります：あなたの列の最初の7行ではなく、1つ（最初の）は、内部に何かを書き込みます。次に、この7行を選択し、全体の列にそれらをコピーします。さて、必要なのはSELECT–GO TO SPECIAL–select BLANKS–OK これで7つの行が選択範囲になりました。これで好きなことができるようになりました。お楽しみに

7 行目ごとに、

1. 列を挿入する
2. 1行目から6行目までに “X”
3. 7行目には1,
4. 列にはそのブロック
5. 5. その列に「重複を削除」を使用する。1行目を削除する（1つ目の “X "が付いている）。
6. 追加された列の削除