- 締切済み
Excelで行追加
今、選択されてるセルの下に、 10行分を今のセル行の内容（演算式）をコピー挿入したいのですが、どのようにすれば。。。 なお、行全体ではなく、A～G列のみの処理にしたいのです。 よろしくお願いいたします。
- a00000a
- お礼率77% (47/61)
- Visual Basic
- 回答数4
- ありがとう数1
- みんなの回答 （4）
- 専門家の回答
みんなの回答
- taka451213
- ベストアンサー率47% (436/922)
- imogasi
- ベストアンサー率27% (4737/17068)
>Excelの操作方法でなく、 であれば、ご回答をみて、その操作をしてみて、マクロの記録を取れば良いのです。 Sub Macro1() Range("A1:G10").Copy Range("A11").Insert Shift:=xlDown Application.CutCopyMode = False End Sub
補足
折角回答いただいたのですが、 やりたいのは固定のセルでなく、 今あるセルからという方式です。
- BLUEPIXY
- ベストアンサー率50% (3003/5914)
Ａ～Ｇの１０行分を選択し、（右クリックから）コピーします。 挿入したい部分を選んで、右クリックからコピーしたセルの挿入を選んで挿入します。
補足
すみません。 Excelの操作方法でなく、VBで行う方法が知りたいのです。
- Ree_232
- ベストアンサー率40% (76/189)
入れたいところのA～G列を選択して、右クリックで挿入→下にシフト。
補足
すみません。 Excelの操作方法でなく、VBで行う方法が知りたいのです。
関連するQ&A
- エクセルで行を追加するマクロ
いつもお世話になります。 エクセルのマクロでこんなことは可能でしょうか。 （１）ある「不特定のセル」に値が入ったとき（そのセルの列は決まっています） （２）自動的にそのセルの「行」全体をコピーし （３）ひとつ下の行に「コピーしたセルの挿入」で行の追加をする 「不特定のセル」というところでつまづいています。 お詳しい方、ご教授宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excel 行又は列単位で… 処理重い
Excel2007 処理が重くなって困ってます。 行幅や列幅、セル書式などを移すのに 条件を指定してコピー よく使うのですが 列、または行をコピー元としたペーストをすると 途端に処理が重くなります。 不使用セルを全て 行単位、列単位で 内容削除でなく、セル削除し 一旦保存してExcelを終了 開き直しても変わりません。 以前2003から乗り換えた環境時は 直前の変更に関連しないセルの演算、 つまり、すでに演算が一度終わっていて 変化する可能性が少ないセルの演算 これを省略してくれているように感じていたのですが、 今回、この機能が切れているように感じます。 行、又は列をコピー元としたペーストを利用しつつ 処理の鈍重化を防ぐ対策、 ご教示をお願いします。 有効な設定等ありますでしょうか…
- 締切済み
- その他MS Office製品
- excelで追加した行だけ並べ替えできなくなった
似たデータを表の下部に追加するため、何行かを選んでコピーし、「コピーしたセルの挿入」にて表の下部に貼り付け、その後で貼り付けたセルの一部データの書き換えを行いました。その後データの並べ替えを行おうとしたのですが、新たに貼り付けた行部分だけ並び順えができません。元のように全体の並べ替えをする方法をご教示下さい。なお元のデータは私自身が作ったものでなく、データの並べ替えは見出し行の所についている▼ボタンに頼っています。データは大部分が文字列で、一列のみが日付です。
- 締切済み
- その他MS Office製品
- VBAによる行追加時の
VBAで行を追加するのは問題がないのですが、行を挿入するとき、挿入行の数式を含め追加すると、 絶対参照、複合参照にしている数式の一部が相対参照のように変わってしまいます。 また、挿入行以降の数式も全て変わってしまいます。 色々調べてみましたが、原因が分かりません。 G列1O行目以降に以下の数式 G10セル =IF(OR(E10<>"",F10<>""),$G$9+SUM($E$10:$E10)-SUM($F$10:$F10),"") G11セル =IF(OR(E11<>"",F11<>""),$G$9+SUM($E$10:$E11)-SUM($F$10:$F11),"") G12セル =IF(OR(E12<>"",F12<>""),$G$9+SUM($E$10:$E12)-SUM($F$10:$F12),"") 同じ数式で100行程度あります。 絶対参照以外は各行アドレスになります。 例えば、G10に行挿入すると、上記のG10はG11（以降も全て）にずれますますので、 G10セル =IF(OR(E10<>"",F10<>""),$G$9+SUM($E10:$E$10)-SUM($F10:$F$10),"") G11セル =IF(OR(E11<>"",F11<>""),$G$9+SUM($E$10:$E11)-SUM($F$10:$F11),"") G12セル =IF(OR(E12<>"",F12<>""),$G$9+SUM($E$10:$E12)-SUM($F$10:$F12),"") となると考えていますが、 実際は、 G10セル =IF(OR(E10<>"",F10<>""),$G$9+SUM($E10:$E$11)-SUM($F10:$F$11),"") G11セル =IF(OR(E11<>"",F11<>""),$G$9+SUM($E$11:$E11)-SUM($F$11:$F11),"") G12セル =IF(OR(E12<>"",F12<>""),$G$9+SUM($E$12:$E12)-SUM($F$12:$F12),"") と、SUM関数の絶対参照、複合参照の部分が相対参照と同じようにアドレスが変わってしまいます。 VBAでのコピーは行列範囲を指定してコピー、行列範囲の先頭を指定して貼付しています。 （行追加、コピー、貼付部分のみ抜粋） '事前にコピーや切取りの操作を取り消す Application.CutCopyMode = False '選択された行の必要範囲を選択 Range(Cells(選択行, 選択開始列), Cells(選択行, 選択終了列)).Select '選択された範囲をコピー Selection.Copy '選択行の選択開始先頭を選択 Range(Cells(選択行, 選択開始先頭).Address).Select '貼付（行挿入での貼付） Selection.Insert Shift:=xlDown 'コピーを取り消す Application.CutCopyMode = False なぜこのような挙動になるのか、また対策方法はあるのでしょうか？ なお、シートの上下の関係で、選択されている行を基準にコピー貼付を行う必要があるため、 最初の行、途中、最終行に関係なく正しく行追加する方法がありましたらお教え下さい よろしくお願いします。 Win XP(SP3) Excel2003,Excel2007 （基本、Excel2003で使用する予定です）
- ベストアンサー
- その他MS Office製品
- Excelの行挿入で
Excelのシートにデータがつまっているのですが（これから新しく表を作るということではないということです。）、行の挿入をしたいのです。 このとき、行を選択して、右クリックで「挿入」を選べば挿入自体はできます。 しかし、 既にある表は、行が、Ａ列とＢ列が結合されているのですが、 単に上記のように挿入すると、 Ａ列Ｂ列が分かれている行が挿入されてしまいます。 新しく挿入された行のＡ列とＢ列を選択して、「セルの書式設定」の「配置」でセルを結合させてもいいのですが、 いちいちそうしなくても 挿入時点ですでに結合されているようにするにはどうすればよいですか。 （Ｅｘｃｅｌ２０００）
- 締切済み
- オフィス系ソフト
- エクセルの行追加
下記の表でＡ列の番号が変わったところに自動で行を挿入する方法を教えて下さい。 A列 B列 1行 123 酒 2行 123 酒 3行 123 酒 4行 215 ビール 5行 215 ビール 6行 324 ワイン 7行 324 ワイン 3行目の下、5行目の下に一度に行を挿入したいのですが。 実際のデータは３千行ほどあり、番号も１００種類ほどあります。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセル 一行ずつセルを追加挿入する方法
エクセルの表で、一行ずつセルを追加挿入しようと考え Ｃｔｒｌ 押しながら行番号を選びクリック、挿入ボタンを押したのですが 行全体または列全体とほかのセルを含む選択範囲に対してそのコマンドは使用できません。 行全体列全体または一つのセル範囲を選択し再度実行してください。 というメッセージが出て挿入することができませんでした。 うまくいくこともあるのですが、たびたび上記のメッセージがでてうまくいきません。 適切なやり方をご存じの方いらしたら教えていただけないでしょうか。 併せて、なぜ上記のエラーメッセージが表記されるかについてもご教示いただけたら幸いです。
- 締切済み
- Excel（エクセル）
- エクセル アクティブ行の範囲選択
表題についてお尋ねします。 選択されているセルのある行で、なおかつC列からJ列までのみをマクロでコピーしたいと思っております。 行全体ですと下記で可能だったのですが、列を指定することができません。 Range(ActiveCell, ActiveCell).EntireRow.Copy C・D・E列には全ての列に必ずデータが入ってます。 F・G・H・I・J列には どれか一つの列のみにデータが必ず入っています。 複数行を選択することはなく、つねに一行のみです。 エクセル2003です。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルで数字を認識して、行をコピーして挿入するマクロ
エクセルのマクロでこんなことは可能でしょうか? （１）あるセルに(数字)が入ったとき (そのセルの列は固定） （２）自動的にそのセルの「行」全体をコピーして その数字が5なら4行、1なら0行 （入力値より-1行） （３）ひとつ下の行に「コピーしたセルの挿入」で行の追加をする 例 列 A.B.C.D.E a.b.c.d.2 "a.b.c.d.2" a.b.c.d.3 "a.b.c.d.3" "a.b.c.d.3" Eの列に2とある場合下に2行-(1行)追加コピー "a.b.c.d.2"の部分。 無理を言いますが可能であれば お詳しい方、ご教授宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- シート保護の状態で行の追加を行いたい
ＥＸＣＥＬ２００３を利用しています。 Ａ列 Ｂ列 １行目 Ｂ =Ａ１ ２行目 Ｃ =Ａ２ ■Ａ列に変更可能な値 ■Ｂ列に関数 ※上記表記の各値はダミーです。 (1)Ｂ列の関数は変更されたくなく、表示もしたく無いので、セルの書式設定にて、セルをロック＆非表示 (2)Ａ列は変更を許可したいので、セルの書式設定にて、セルのロックを外す。 (3)上記(1)(2)を設定の上、シートの保護を実行。 ここで、３行目を挿入したいのですが、 シート保護のオプションで「行の挿入」を許可して、 普通に行の挿入を行うと、当たり前ですが、 Ａ列 Ｂ列 １行目 Ｂ =Ａ１ ２行目 Ｃ =Ａ２ ３行目 となり、Ｂ列の関数はコピーされません。 ここで、２行目を選択し、３行目にコピーしようとしても、 Ｂ列がロックされている為、コピーできません。 Ａ列 Ｂ列 １行目 Ｂ =Ａ１ ２行目 Ｃ =Ａ２ ３行目 =Ａ３ 上記のように行の追加を行うのが希望ですが、 何か良い方法は無いでしょうか。 なお、上記Ｂ列の関数は仮です。
- ベストアンサー
- その他MS Office製品
お礼
だいぶ内容がちがいますが、できそうな気が。。。 参考にして試したらできました。 感謝です。