- ベストアンサー
関数入りの行を挿入したいです。
エクセルの一番下の行に、関数入りのコピー用の行を1行残し、あとはデータになっています。 一番下の行をコピーし、その行を挿入したいときは、どのようにマクロを組んだら良いでしょうか。 かなり初心者なので、できましたら、具体的に記述して教えてください…
- iillyy
- お礼率67% (35/52)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
どもども 田吾作７です。 サンプルです。 機能としては、一番下の行を、現在アクティブなセルを持つ行へコピーします。 '一番下の行コピー Rows(65535).Copy '現在のカーソル位置の一番左のA列へ移動 Cells(ActiveCell.Row, 1).Select 'そこに貼り付け ActiveSheet.Paste 'コピーモード解除 Application.CutCopyMode = False でわでわ
関連するQ&A
- 関数入りの行挿入。。。上書きではなく挿入でした。。。
コピー用に、関数入りの行を一番下（65535行）にとってあります。 これについて。。。 関数入りの行を挿入したいときは？の質問に、 下記のようなマクロを作成してくださった方がいらっしゃるのですが、 間に挿入されるのではなく、上書きされて、前のデータが消えてしまいます。 例えば、３行目と４行目の間…５行目と６行目の間…として、 挿入で使いたいときは、 どこをどのように直したら良いか、教えてください。 空白行がたくさんあって、その行は詰めていただいて良いです。 うーん…もしかして…意味不明ですか？ '一番下の行コピー Rows(65535).Copy '現在のカーソル位置の一番左のA列へ移動 Cells(ActiveCell.Row, 1).Select 'そこに貼り付け ActiveSheet.Paste 'コピーモード解除 Application.CutCopyMode = False
- ベストアンサー
- Visual Basic
- エクセル。行を挿入すると、関数が反映されない
とても困っているのでどうかお願いします。 たとえば、ある列にエクセル関数を挿入したとします。 今回私が挿入したのはIF関数でした。=IF(C1="","",10)をC1に入れて、それより下は、C2,C3,,とドラッグしていきました。 その途中に行を挿入したとき、たとえば15行目に挿入したとき、理想は勝手に 。=IF(C15="","",10) となってくれることです。しかしやってみると、実際にはそうなっていません。 関数は全く入っておらず、空欄になっています。 これでは、行を挿入するたびに関数をまた入れなおししないといけないということでしょうか？ マクロなどでしか解決できないのでしょうか？（それとも条件付書式などで、列そのものに挿入するのでしょうか？） ちなみに条件付書式の場合、どこかからセルを貼り付けするとき、値のみにしないと、そのセルの書式も変更されてしまいますよね？だからあまり使いたくないのですが、、、 どなたかご存知の方はどうかお願いいたします。
- ベストアンサー
- Windows系OS
- エクセル行の挿入
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 空白（行の挿入） -------------------------------------
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで行挿入
エクセルマクロで行挿入 マクロ初心者です。 仕事で、受注した内容をエクセルで管理しているのですが、頻繁にキャンセルや日程変更があり、１日単位でデータを管理しているものですから、かなりデータ入力に労力が取られている状況です。 キャンセルや日程変更になったデータに関しては、行ごと削除するのではなく、行単位で取り消し線と文字を赤にして、見た目で無くなったということがわかるようにしています。 また、受注したら行を挿入して新しいデータを入力しています。 そこで、赤字で取り消し線にて入力されている行の一つ上の行に挿入、ということをマクロでできないかと思っています。 赤字に取り消し線の行に関しては、何行目になっているかはその日によって違うので、その指定と、書式を指定する方法がわからない状況です。 マクロで上記のことができるのであれば、ご教授いただけると助かります。 宜しく御願いいたします。
- ベストアンサー
- オフィス系ソフト
- 関数が含まれたセルの行をマクロで挿入する
セルD2には、IF関数が含まれている、以下の表があります。2行目に行をマクロで挿入して大きな表を作成する予定です。 A B C Ｄ １ 納入数 使用m数 納入m 使用m 2 〔=if（B2>1,C2,""）〕 マクロは、以下のようにして、2行目に行を挿入したのですが、IF文が含まれたものが 挿入できません。どのようなマクロ文にしたらよいかわからず困っています。別シートからコピーする 方法も考えられますが、同じシート内で収めたいと考えています。宜しくお願いします。 Sub 行挿入() ' ' 行挿入 Macro ' ' Range("a2:ｄ2").Insert copyorigin:=xlFormatFromRightOrBelow End Sub
- ベストアンサー
- その他(業務ソフトウェア)
- excel で自動で行を挿入する
マクロ、関数等を使って、 １行ごとに指定行を挿入することは可能でしょうか？ たとえば、以下のようデータがあった場合。 1行AAA 2行BBB 3行CCC これに3行挿入マクロ（関数）を実行した場合 以下のようになる感じです。 1行AAA 2行 3行 4行 5行BBB 6行 7行 8行 9行CCC
- ベストアンサー
- オフィス系ソフト
- エクセル コピー先に残った関数のある行クリア
エクセルのコピー元シート：100行10列 コピー先シート：ペーストする先 セル10 関数5 Ｎ行（例えば150行） コピーした後にデータが張り付いていない行に関数だけ残る（50行） この不要な行の関数を毎回手でクリアしています。 マクロで関数を消すにはどうすればよろしいかご教示願いたく、 よろしくお願いいたします。
- 締切済み
- Visual Basic
- エクセル マクロでの行挿入は・・・・
マクロを勉強中です。 特定の列の値（下の表では5列の『サブコード』です）が、 4～6 の時に、1行挿入し上の行のコピーを貼りつけ、 7～9 の時は、2行挿入して上の行をコピー貼りつけ・・・ という作業が、マクロでできますでしょうか？ ご回答を、お待ちしております。 どうか、よろしくお願い致します （u＿u)
- ベストアンサー
- Windows Vista
- エクセルマクロ、集計行の上に空白行挿入
エクセルデータがA、B、C、D、E列1000行まであります。 C列基準でE列を合計するマクロを作成しましたが（集計行はデータの下に挿入）、実行の結果、新たに挿入される集計行の上に空白行を1行挿入していくということを、作成したマクロに付加できるでしょうか？ ご教授頂きたく、お願いします。
- ベストアンサー
- オフィス系ソフト
- excel で自動で行を挿入する(コピー)
先ほど、似たような質問をしたばかりなのですが、 マクロ、関数等を使って、 １行ごとにその行を指定行分コピーして挿入することは可能でしょうか？ ※先ほどは空の行挿入でした たとえば、以下のようデータがあった場合。 1行AAA 2行BBB 3行CCC これに3行挿入マクロ（関数）を実行した場合 以下のようになる感じです。 1行AAA 2行AAA 3行AAA 4行AAA 5行BBB 6行BBB 7行BBB 8行BBB 9行CCC 10行CCC 11行CCC 12行CCC
- ベストアンサー
- オフィス系ソフト
お礼
返信ありがとうございます。 自宅ではインターネットをしておりませんで、 インターネットカフェより返信させていただいております。 返事が遅くなりました。 自宅でやってみます。 いろいろと教えていただきたいマクロがあるので、 また、どうか…どうか…よろしくお願いいたします。 私は…かなり田舎に住んでいる23歳の女です。 フリーで淋しい（笑）。 近々引越しをしますので、その際にインターネットを契約するつもりでいます。 ありがとうございました。