2018-11-07から1日間の記事一覧

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").SelectSelecti…