- 締切済み
選択中の行に「行」を挿入するマクロ
エクセルのいちばん左（1から数字が縦に並んでいるところ）の任意の 数字を選択してその行を全選択しておいた状態でマクロを実行すると、そこに1行挿入するプログラムを教えてください。
- sdfa
- お礼率50% (151/298)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- bin-chan
- ベストアンサー率33% (1403/4213)
関連するQ&A
- 任意の１行を選択していないと実行できないマクロ
教えてください。 任意の行番号をクリックしてまるまる１行選択してから、「切り取る」「別のシートに挿入、貼付ける」というマクロを実行しています。 1行選択していないとそのマクロを実行できないという風にするにはどのようなコードを書けばよいでしょうか？ 選択する行番号はその都度違います。 欲を言えば、間違った選択でマクロを実行した時にエラー表示が出ると大変ありがたいのですが… どうかよろしくお願いします。 使用するエクセルは97です。
- ベストアンサー
- オフィス系ソフト
- 「新しいマクロの記録」機能を使っての行挿入
「新しいマクロの記録」機能を使って１行と２行の間に10行の空白行を挿入後、A13のセルを選択というマクロを作りました（マクロ１とします）。このマクロを実行すると１行と２行の間に10行の空白行が挿入された後、A13が選択されます。ここでもう一度、マクロ１を実行すると１行と１２行の間にさらに空白行が10行挿入されA13が選択されます。このようになるのは当たり前と言えば当たり前なのですが、２回目にマクロを実行したときに12行と13行の間に10行の空白行が挿入された後、A24が選択されるようにするには、どのようにマクロを記録すればよいのでしょうか？ ようは、１０行の空白行を挿入した後、セルを１１行下に移動させるというマクロを作りたいのです。ＶＢＡの記述方法はほとんど分からないので「新しいマクロの記録」機能を使うことを前提にご教授ください。
- ベストアンサー
- オフィス系ソフト
- ”アクティブセル行」の一行下を選択”するマクロ
■ ”アクティブセルの、１個下の行を選択し、新しい空白行を一行挿入” ■次にその”アクティブセルのA列とB列の値を、 新しく作った空白行に、コピー ・・・といったマクロを組もうとしております。 たとえば 12行目を選択するプログラム（コマンド？マクロ？）は、 Rows(12:12) となっていたので、それにならって Rows(activecell:B) などとやってみたのですが、うまくいきませんでした。 このような場合、どうしたらよいのかアドバイスをいただけると助かります。 どうぞ、よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセルの行選択マクロ
エクセル２０１０にて。 行を選択した状態から、１行目から現在行の１つ上までを選択し、それを非表示とするマクロを組みたいのです。 ＶＢＡは全く分からず・・・ 変数を宣言し、その変数を代入すれば良いかと試行錯誤しましたが判らず。 Sub ３行目から現在行より上を選択して非表示() ' Dim x As Integer x = ActiveCell.Row Rows("3:x-1").Select Selection.EntireRow.Hidden = True End Sub では、全く動作せず。。 例えば２０行目を選択した状態で、マクロを実行すると３～１９行目までが非表示になるようにしたいのです。御教示下さいませ。
- ベストアンサー
- Visual Basic
- エクセルの行挿入を楽にするには？マクロ？
エクセルで、1000行近くのデータの各行間に、４列ずつ行挿入しています。 手作業のため時間がかかってしまいます。(4000行！) この作業をマクロ化できませんか？ できれば、あける行間数も、４行以外の任意の数に指定できると更に助かります。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロで最下行を選択して「一行挿入する」マクロの記述を
Excelのマクロで最下行を選択して「一行挿入する」マクロの記述を教えてください。 ちなみにA列の一番下の行を選択し、その上に一行入れたいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【マクロ】任意の行の下へ行の挿入&選択
セルA3:DS750の表があります。 1行＝1顧客として使用していますが、度々表に行を挿入して顧客を追加しています。 その為、以下のマクロを作ってみたのですが、最後に【挿入した行をActiveにする】事ができません。 ★挿入位置は、都度変わります。 ★一度に行う挿入行数は1行(多くても3行)の為、マクロは1行追加で作成しています。(行数の指定までは力量により出来ませんでした・・) ★1行目にサンプルを(非表示で)置いて、それを任意の行へ挿入させています。 1行目のサンプルを非表示のまま貼り付けると、挿入した行も非表示になってしまったので、一度再表示させてから処理させています。 サンプル行には、条件書式、数式などがところどころ入っています。 処理の最後に【'行を指定して挿入】と同じ行をActiveにする方法が知りたいです。 記録マクロをいじっただけなので見づらいと思いますが、よろしくお願い致します。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Sub 挿入() '1行目を再表示 Rows("1:1").Select Selection.EntireRow.Hidden = False '1行目をcopy Rows("1:1").Select Selection.Copy '行を指定して挿入 InsertRow = InputBox("何行目の下に挿入しますか？") + 1 Cells(InsertRow, 1).Insert Shift:=xlDown '1行目を非表示 Rows("1:1").Select Selection.EntireRow.Hidden = True '挿入した行をactiveにする ・・・ end Sub －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ マクロが根本的におかしかったらすみません。。 アプローチ方法が他にある場合にもご指摘いただけると助かります。
- ベストアンサー
- オフィス系ソフト
- マクロで条件に合った行の選択について
マクロで条件に合った行の選択について 例えばＡ列から条件に合ったデータを探すとき、 条件の行が複数、点在しておりそれらをすべて選択した状態にする （Ctrlキーとクリックでそれらの行を選択した状態) というようなものができますでしょうか？ エクセルの機能のフィルタを使えば抽出が可能なのは存じておりますが マクロとして記述する時、可能か否かお聞かせください。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
自分でやるとその時選択した行にしか挿入できなくて悩んでいました。 ただ自己解決したんで締め切らせていただきます。 ありがとうございました。