pekorins2009さんのほうが簡単ですね。なるほど、リサイズですか・・ちなみに、質問者のhori2626さんの儀を手直しするなら、Subaaa()DimaAsIntegerDimbAsIntegera=InputBox("何行？")b=ActiveCell.Row+a-1Rows(b&":"&a).SelectSelection.InsertShift:=xlDownEndSubでいいかと思います。
JNBVISAカードを調べる
http://www.smbc-card.com/rd/jnb_card/
発見伝のことならパナソニック・ホーム|Panasonic
VBA アルバイトのことなら
Excel2003VBA下記のようにアクティブ布地から２０行注記挿入をするプログラムをInputbox号で注記数を入力できるように変更したいのですが、うまくいきません。よろしくお願いします。変更前--------------------------------------Subaaa()ActiveCell.Rows("1:20").EntireRow.SelectSelection.InsertShift:=xlDownEndSub--------------------------------------変更後--------------------------------------Subaaa()DimaAsIntegera=InputBox("何行？")ActiveCell.Rows("1:a").EntireRow.SelectSelection.InsertShift:=xlDownEndSub--------------------------------------。