指定した数の行を挿入する
簡単なマクロを作ってみました。
現在の行(セル単体の選択、または通常の挿入のように行全体を選択してもよし)の上方向に指定した数の行を挿入します。
挿入方向と書式の引継ぎはEXCELで通常挿入した場合と同じです。
行数を自分で数える手間がないぶん少しだけ楽です。
***************************************
Sub n行挿入する()
'現在の行の上方向にn行挿入する
'現在の行の上の書式がコピーされる
Dim n As Integer
n = InputBox("挿入する行数を入力して下さい")
If n >= 1 And n <= 500 Then
For i = 1 To n
ActiveCell.EntireRow.Insert xlShiftDown, xlFormatFromLeftOrAbove
Next i
ElseIf n > 500 Then
MsgBox "数値が大きすぎます"
Else
MsgBox "1以上の数値を入力して下さい"
Exit Sub
End If
End Sub
***************************************
※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。