VBA メモ 2018 11 07

VBA VBA ECサイト　など

Sub add()

'18行　空ける

Dim i As Long

For i = Cells(Rows.Count, 1).End(xlUp).Row To 16 Step -1

Rows(i & ":" & i + 16).Insert

Next i

End Sub

-----------------------------

'項目選択肢コピー　ペースト

Sub addcopy()

Range("D1:E18").Select
Selection.Copy

Range("D19").Resize(18 * 10, 1).Select 'Resizeの値で(18 * 〇,1) 〇がループする回数
ActiveSheet.Paste

End Sub