Excelセル座標値の渡し方

質問

VBAの初心者です。
Excelでアクティブセルの座標値を取り出して、マクロの中で、その行全体、あるいは列全体を指定して挿入や削除をさせたいのですが、どうしたらよいのでしょうか。教えて下さい。よろしくお願いします。

（例）アクティブセルが C7 であるとき、Rows("7:7") に１行挿入する。

Sub 行挿入()

'セル座標値を読み取ってその行全体を指定するデータの渡し方？？？？？

Rows("7:7").Select
Selection.Insert Shift:=xlDown

End Sub

回答No.1

pkh4989 · ベストアンサー

こんにちは。

Dim wR as Long
Dim wC as integer
wR = ActiveCell.Row
wC = ActiveCell.Column
'
Rows(wR).Select
Selection.Insert Shift:=xlDown
Columns(wC).Select
Selection.Delete Shift:=xlLeft

お礼

pkh4989さん ありがとうございました。

Serection EntireRow. Insert でＯＫのようです。
Alt→I→R のキー操作を自動記録してみてわかりました。

教えていただいた変数の設定は勉強になりました。