ExcelVBA : 一定範囲の行追加

質問

いつもお世話になっております。
現在表を作成しており、項目を随時追加できるマクロを作成したいと思っております。
下記の条件でのマクロ記述を教えて頂けないでしょうか。

・現在アクティブになっているセルと同じ列の特定範囲の行を追加したい。

例：
列1のどこかのセルがアクティブの時、A1からK１までの行を追加。

以上、よろしくお願い致します。

回答No.4

higekuman

> A1からK1を選択→右クリック→挿入→下方向にシフト→OK

これをマクロ記録して、

> A*アクティブセル→A*からK*

これを考慮して、記録したマクロを修正するだけです。

#3さんの回答への補足を見る限りでは、質問者様はマクロをまったく解らないというわけでもなさそうなので、とりあえずこの説明だけでマクロを作ってみてください。
その上で、解らないところがあったら、また質問してください。

最初から「作ってください」という質問？には答えられない(応えられない)ので。

補足

ご指摘頂きありがとうございました。
検討してみます。

回答No.3

FEX2053

コレで行けるかな？

Sub Macro1()
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Cut Destination:=Selection.Offset(1)
Selection.Resize(1, 1).Select
End Sub

１行目で、選択セルの右下側を全部選択、
２行目で、選択したセルを１行下に移動
３行目で、選択セル範囲を左上に縮小

SpecialCellsとCutがキモです。
でも、この程度のマクロなら、キー記録でも作れるんですけど。

参考URL：

http://officetanaka.net/excel/vba/cell/cell10.htm

補足

ご指摘頂きありがとうございます。
教えて頂いたやり方は既に知っています。
このやり方だとセル全体に挿入がかかってしまい、特定の範囲のみの挿入ができないのです。

回答No.2

higekuman

同じことをもう一度聞きます。

A1からK1の行を追加、って何ですか？

手作業では、どのような処理を行うのでしょうか？

補足

A1からK1を選択→右クリック→挿入→下方向にシフト→OK
の事です。

回答No.1

higekuman

質問が解りにくいです。

> 列1のどこかのセルがアクティブの時、A1からK1までの行を追加。

列1？　行1では？

A1からK1までの行？　A1からK1までは、行ではなくセル範囲ですよ。

追加するところは具体例なのに、アクティブなセルは具体的ではありません。

他にも幾つか例を挙げてみてください。

補足

説明不足で申し訳ありませんでした。

>列1？　行1では？
ご指摘の通り、"行1"です。

動きの例としましては。
A1アクティブセル→A1からK1の行を追加
A6アクティブセル→A6からK6の行の追加
A*アクティブセル→A*からK*の行を追加　（*：任意の数）

上記のような動作を行いと思っています。
よろしくお願い致します。