- ベストアンサー
Excelでの行の挿入について
harukabcdeの回答
- harukabcde
- ベストアンサー率15% (94/610)
Sub 行挿入2() Dim r As Long r = Range("a1").Value If r = Empty Then MsgBox "取りやめます.": Exit Sub ActiveCell.Resize(r).EntireRow.Insert Shift:=xlDown 'ActiveCell.Resize(r).Insert Shift:=xlDown '全行でない場合は、EntireRowの入っている方を無効にし、入っていない方を有効「'を外す」にしてください。 End Sub
関連するQ&A
- 「新しいマクロの記録」機能を使っての行挿入
「新しいマクロの記録」機能を使って１行と２行の間に10行の空白行を挿入後、A13のセルを選択というマクロを作りました（マクロ１とします）。このマクロを実行すると１行と２行の間に10行の空白行が挿入された後、A13が選択されます。ここでもう一度、マクロ１を実行すると１行と１２行の間にさらに空白行が10行挿入されA13が選択されます。このようになるのは当たり前と言えば当たり前なのですが、２回目にマクロを実行したときに12行と13行の間に10行の空白行が挿入された後、A24が選択されるようにするには、どのようにマクロを記録すればよいのでしょうか？ ようは、１０行の空白行を挿入した後、セルを１１行下に移動させるというマクロを作りたいのです。ＶＢＡの記述方法はほとんど分からないので「新しいマクロの記録」機能を使うことを前提にご教授ください。
- ベストアンサー
- オフィス系ソフト
- エクセル 行の挿入について
EXCEL2002を使用しています。 行を挿入しようとしましたら、次のようなエラーメッセージがでました。 『データの消失を防ぐため、空白でないセルをワークシートの外にシフトすることはできません。 Ctrl+Endキーを押して最後の空白でないセルに移動し、そのセルとデータを削除、またはクリアしてください。 その後、セルA1を選択し、ブックを保存して最後のセルをリセットしてください。 または、データを新しい位置に移動し、もう一度行ってください』と。 データを入力した後、入力漏れに気がついたので、行の途中に入力漏れしたデータを挿入したいのですが、どのようにすれば、行の挿入ができるでしょうか。 （例えば、1行目から100行目までデータを入力した後に、10行目に新たにデータを挿入したい場合） よろしくご教示願います。 なお、ＯＳはウィンドウズＸＰです。
- ベストアンサー
- オフィス系ソフト
- マクロで行挿入がうまくいかない理由は？
ＸＰでＯＦＦＩＣＥ２００７です。マクロ未熟者です。 マクロで、行挿入だけであればうまくいきますが、行挿入した後でその行に文字を入力するマクロでは、その行ではなく１行前のセルに文字が入力されてしまいます。 変なことになるのは、マクロを作成する過程で、行挿入が上の書式をコピーすることと関連がありそうなのですが、何に注意すればうまくいくのでしょう。 とりあえず今のところは行挿入を使わずに上の行をコピーして挿入する方法でうまくいっています。しかし行挿入後の文字入力がうまくいかないのか、その理由と対処方法がわかれば教えてください
- ベストアンサー
- オフィス系ソフト
- エクセルマクロの行非表示及び挿入
エクセルマクロの方法について質問です。 今６～７０行の中に表（入力項目は３行一体）を作っていてそのＥセル（３行の結合セル）に”済”と入力すると３行で一体の行を非表示にし、非表示にしたことで入力行が減ってしまうので、非表示にした後に最後から２つ目の３行一体の行にコピーして行を挿入する構文を教えてください。 なお、最後の行挿入だけはマクロの自動記憶でも出来そうでしたが、その前段階の非表示がどうしてもうまくいきません。
- ベストアンサー
- その他MS Office製品
- 複数行に空白行を一括で挿入したいのですが
エクセルに関する質問です。 セルＡ列の14行目から30000行まである数字が入力されています。 各行間に一行ずつ空白行を挿入したのですが マクロを使ったやりかたでもかまいませんので 一括でする方法があれば教えていただけないでしょう？
- ベストアンサー
- オフィス系ソフト
- エクセル行の挿入
excelに行を追加する方法を教えてください！ Bにある数からマイナス1行下に挿入したいのです。 1→挿入なし 2→下に1行挿入 3→下に2行挿入 数よりマイナス1行の挿入をしたいのですが、 マクロ、関数など全く分かりません。 以前の質問も見てみたのですが、見当たらないのと、 マクロ？が全くわからないので、 どなたか一から教えていただけないでしょうか？ 本当に申し訳ないのですが、お願いします。 Aにkkkk Bに数が入ります。 Ａ ｜ Ｂ ｜ Ｃ ｜ Ｄ ------------------------------------- １| kkkk 2 ------------------------------------- ２| kkkk 1 ------------------------------------- ３| kkikk 3 ------------------------------------- ４| kkkk 2 ↓行の挿入 Ａ ｜ Ｂ ｜ Ｃ ｜ Ｄ ------------------------------------- １| kkkk 2 ------------------------------------- ２| kkkk 空白（行の挿入） ------------------------------------- ３| kkikk 1 ------------------------------------- ４| kkkk 3 ------------------------------------- ５| kkkk 空白（行の挿入） ------------------------------------- ６| kkkk 空白（行の挿入） ------------------------------------- ７| kkkk 2 ------------------------------------- ８| kkkk 空白（行の挿入） -------------------------------------
- ベストアンサー
- オフィス系ソフト
- エクセルで空白行を挿入するには
一つの列に２００ほどデータがあるとします。 そこで１行おきに空白行を挿入していきたいのですが手でいちいち空白行を挿入していてはらちがあきません。 関数等も含めて、なにか良い方法はないでしょうか。 例 セルＡ１ セルＡ２ セルＡ３ 以下続く ↓ セルＡ１ 空白行（セル） セルＡ２ 空白行（セル） セルＡ３ 空白行（セル） 以下続く といった具合です。
- ベストアンサー
- オフィス系ソフト
- エクセルで行を挿入すると式が・・・
シートを２枚使っています。 シート２にＩＦ関数を使用して、 ＠ＩＦ（Sheet１：Ａ１＝”Ａ”，”ＯＫ”，””）という式を入力しています。 ここで、シート１の１行目を挿入すると、 式も自動的にＡ２に変更されてしまいます。 行を挿入しても必ず１行目のＡ１を参照してほしいのですが、どうすればよいのでしょうか？ 新しく入力するときは、行を挿入してシート１のＡ１に入力します。 絶対セルや範囲名を設定してもうまくいきませんでした・・・。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelの行挿入で
Excelのシートにデータがつまっているのですが（これから新しく表を作るということではないということです。）、行の挿入をしたいのです。 このとき、行を選択して、右クリックで「挿入」を選べば挿入自体はできます。 しかし、 既にある表は、行が、Ａ列とＢ列が結合されているのですが、 単に上記のように挿入すると、 Ａ列Ｂ列が分かれている行が挿入されてしまいます。 新しく挿入された行のＡ列とＢ列を選択して、「セルの書式設定」の「配置」でセルを結合させてもいいのですが、 いちいちそうしなくても 挿入時点ですでに結合されているようにするにはどうすればよいですか。 （Ｅｘｃｅｌ２０００）
- 締切済み
- オフィス系ソフト
- エクセルマクロで行挿入
エクセルマクロで行挿入 マクロ初心者です。 仕事で、受注した内容をエクセルで管理しているのですが、頻繁にキャンセルや日程変更があり、１日単位でデータを管理しているものですから、かなりデータ入力に労力が取られている状況です。 キャンセルや日程変更になったデータに関しては、行ごと削除するのではなく、行単位で取り消し線と文字を赤にして、見た目で無くなったということがわかるようにしています。 また、受注したら行を挿入して新しいデータを入力しています。 そこで、赤字で取り消し線にて入力されている行の一つ上の行に挿入、ということをマクロでできないかと思っています。 赤字に取り消し線の行に関しては、何行目になっているかはその日によって違うので、その指定と、書式を指定する方法がわからない状況です。 マクロで上記のことができるのであれば、ご教授いただけると助かります。 宜しく御願いいたします。
- ベストアンサー
- オフィス系ソフト