excel - 26 行ごとに範囲を貼り付けるマクロを作成する

Question

配列 (Sheet1!A2:A831) をコピーして、Sheet2 に貼り付けたい! A1 から 26 行ごとに。

このマクロを使用していましたが、問題が発生しました。

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("Sheet1!A2:A831").Copy
For i = 26 To LR Step 26
    Range("A" & i).PasteSpecial Paste:=xlPasteFormulas
Next i
End Sub

Answer 1

これはあなたがしようとしていることですか？

Sub test()
    Dim LR As Long, i As Long, n As Long

    With Sheets("Sheet1")
        LR = .Range("A" & .Rows.Count).End(xlUp).Row

        n = 1

        For i = 2 To LR 'A2:A831
            .Range("A" & i).Copy
            Sheets("Sheet2").Range("A" & n).PasteSpecial _
            Paste:=xlPasteFormulas

            n = n + 25
        Next i
    End With
End Sub