test

Sub test()

With Sheets(“sheet1”)
.Range(“a1”).Select
.Range(“a1”).Copy

Dim i As Long
Dim g As Long

For g = 1 To 3
ActiveCell.Offset(0, 1).Select
ActiveCell.Copy

For i = 1 To 3
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste

Next i
Next g
End With
End Sub

コメントを残す