[[20141003152547]]　『行の挿入数を増やしたい』（ken）　ページの最後に飛ぶ

『行の挿入数を増やしたい』（ken）

行の挿入について教えてください。
カーソールがあるセルの一つ下に行を挿入し、更に計算式をコピー&ペーストするVBAコードを見つけたのですが、一行追加するのではなく、10行追加するには
'行を追加
Range(wGyou + 1 & ":" & wGyou + 1).Select
上記の部分の1を10に変更するのでしょうか。
試してみたのですが、いまいちうまくいきません。

Sub 行の追加()

Dim wGyou As Long

'アクティブなセルの行番号を取得
wGyou = ActiveCell.Row

'繰り越し（4行目）より上の行には挿入処理を行わない。
If wGyou < 4 Then Exit Sub

'事前にコピーや切取りの操作を取り消す
Application.CutCopyMode = False

'行を追加
Range(wGyou + 1 & ":" & wGyou + 1).Select
Selection.EntireRow.Insert

'A列～X列の数式をコピーする
Range("A" & wGyou & ":X" & wGyou).Copy
Range("A" & wGyou + 1 & ":X" & wGyou + 1).PasteSpecial Paste:=xlPasteFormulas

'コピーを取り消す
Application.CutCopyMode = False

'セルの位置を移動
Range("A" & wGyou + 1).Select

End Sub

＜使用 Excel：Excel2010、使用 OS：unknown ＞

Rows(wGyou + 10 & ":" & wGyou + 1).Selectにすればいい
もし両方ともに１０にすると10行先の１行だけ選択され導入されるます
数字だけに直すとこういうこと
Rows("10:10").Select
Rows("1:10)".Select
上は１０行目だけ下は１行目から１０行目までを選択しています。

（デイト） 2014/10/03(金) 16:10

勉強になりました。
とても助かりました。ありがとうございました。
（ken） 2014/10/03(金) 17:02

コメント返信：

[ 一覧(最新更新順) ]

[[20141003152547]] 『行の挿入数を増やしたい』（ken） ページの最後に飛ぶ

[[20141003152547]]　『行の挿入数を増やしたい』（ken）　ページの最後に飛ぶ