- ベストアンサー
[エクセル]行の挿入、シート間で連携できますか？
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
変更したいシートのタブ（下のｓｈｅｅｔ１）を変更したいシートのところだけ、Ｃｔｒｌを押しながら選択し、どのシートでもかまいませんから行なり、列なりを挿入する。これで、選択したシートも同じ部分だけ変更されます。
その他の回答 (2)
- maruru01
- ベストアンサー率51% (1179/2272)
こんにちは。maruru01です。 No.1の人の方法は、複数のシートを選択して（作業グループにする）、同じ動作を行うというものですが、それぞれのシートで違う動作（行挿入の位置が違うとか）をさせる場合は、VBAで書く必要があります。 どちらなんでしょうか。
お礼
有難う御座います。 違う動作なんて・・・難しいことは考えていませんでした♪ エクセルを本格的に使いこなすためにもちょっとＶＢＡを勉強しないといけませんね。反対に、出来ることも使えないままだともったいないですし・・・。 有難う御座いました。
- taknt
- ベストアンサー率19% (1556/7783)
シートをまとめて選択して修正を行えば、選択されたシートにすべて同じ修正が加わります。 なので、挿入が終わったら、必ず、シートを一つだけに選択しなおすことを 忘れないようにする必要がありますよ。
お礼
わかりました！有難う御座います！！
関連するQ&A
- エクセル 行の挿入
エクセルの行の挿入方法を教えてください。 http://okwave.jp/qa1095365.html?rel=innerHtml&p=bottom&l=1 上記の質問のマクロをコピーし、少し加工して使用させていただいてます。 Sub Macro1() Dim lngCnt As Long '処理行のカウント Dim intCnt As Integer '挿入行数セット ''初期行セット lngCnt = 5 '' 処理行のD列に文字がなくなるまで繰り返す Do Until Cells(lngCnt, 4) = vbNullString ''挿入行数セット intCnt = Cells(lngCnt, 4) + 1 ''挿入行分繰り返す Do Until intCnt <= 0 ''次の行に進む lngCnt = lngCnt + 1 ''行の選択 Rows(lngCnt & ":" & lngCnt).Select ''行の追加 Selection.Insert Shift:=xlDown ''１行追加したので挿入行数から１引く intCnt = intCnt - 1 Loop ''処理行数カウントアップ lngCnt = lngCnt + 1 ''1シートの最大行数を超えたか？ If lngCnt > 65536 Then MsgBox "1シートの最大行数を超えました" Exit Do End If Loop ''A1を選択 Range("A1").Select End Sub このマクロでは '' 処理行のD列に文字がなくなるまで繰り返す Do Until Cells(lngCnt, 4) = vbNullString なので、一行抜けてしまうとマクロが止まってしまいます。 これをD行に数字が入っている所はすべて増えるように？止まらないようにしたいのです。 どうすればいいでしょう？ 宜しくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルの行挿入について
こんにちわ。お世話になります。 エクセルでシート1に1,000行、シート2に1,000行のデータを作成し、シート1のデータの上にシート2のデータを貼り付けて連続したデータを作っているのですが、データを貼り付けるたびに1,000行の行挿入をしてからデータを貼り付けています。いちいち行挿入をせずにもっと簡単にできる方法があれば教えていただけませんか。お願いします。
- 締切済み
- オフィス系ソフト
- エクセルのワークシートの挿入について
エクセル２０００を使っています。 １５枚くらいのシートで構成されているエクセルＢｏｏｋですが、 メニューバー「挿入」－「ワークシート」とやっても新しいワークシートが挿入できません。 しかし、既存のシートのタグで右クリックして「挿入」－「ワークシート」と選択すると新しいワークシートが挿入できます。 同じ事だと思うのですが、何故違いが出てくるのでしょうか？ また、１ＢＯＯＫ内に作成できるシートの最大数は何シート迄でしょうか？
- 締切済み
- オフィス系ソフト
- エクセルでの複数シートへの同時行挿入
エクセルで某使用料金の集計表を作成しており、 シート１で実数値を入力し、シート２で単位千円の提出用資料を作成しております。 単純に、シート１で入力された数値を、シート２で同じフォーマットで、ＩＮＴ関数を使用しているだけなのですが、 シート１で新規に行を挿入した場合、シート２でも同様に行を挿入し、数式をコピーして対応しております。 しかしながら、毎月、新規で行を挿入するケースが増え、油断するとシート２への行挿入を忘れるなどの事態が発生しております。 もっと簡易な方法で、シート１で作成した表の、千円単位に変換した表を作成することはできないのでしょうか？ できるだけ易しい方法を教えて下さい。
- ベストアンサー
- その他MS Office製品
- ExcelVBA 複数のシートへの行挿入
現在下記の操作を行いたい為、Excelマクロを作成しています。 Sheet1のアクティブセルの行に（AからN列の)行の挿入 Sheet2から4はSheet1のアクティブセルの行+2の（AからN列の)箇所に行の挿入 Sheet5は行挿入を行わない。 このような操作をマクロで行う事は可能でしょうか。 またどのように記述すればよろしいでしょうか。 よろしくお願い致します。 例: Sheet1のアクティブセル = A3の場合 Sheet1 = A3からN3まで行挿入 Sheet2から4はA5からN5まで行挿入 Sheet5は行挿入を行わない。 現在ここまで作成しています。 Sub Add() ActiveCell.Offset().Activate ActiveCell.EntireRow.Range("a1:n1").Insert Shift:=xlDown End Sub
- 締切済み
- 財務・会計・経理
- エクセルの行挿入
エクセル2003で、1行おきに行を挿入したいのですが、一発できる方法はありますか？100行ほどあるので1行づつ挿入すると時間がかかるので効率の良い方法を教えてください。
- ベストアンサー
- その他(業務ソフトウェア)
- EXCELで切り取った行を別シートに挿入
EXCELである行を選択して切り取り、同一シート内の任意の場所に挿入すると 元の行は自動的に削除されます。 しかし、別シートに挿入した時は、元の行は削除されず、わざわざ その行を削除する、という操作が必要となります。 そこで質問なのですが、別シートへの挿入を一つの操作で行う方法はないでしょうか？ また、その方法がない場合、それはEXCELの何らかの仕様を反映しているのだと 思いますが、それはどのようなものでしょうか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- EXCELで行挿入、これは一体何故ですかねえ
Windows XPでEXCEL2000を使用していますが友人のパソコンのEXCELファイル(友人もW-xpでEXCELも2000)を私のパソコンにコピーして表の中で行挿入をしたいのですが「データの消失を防ぐために、空白でないセルを空白でないセルをワークシートの外にシフトすることは出来ません」と云うメッセージが出てきて行挿入できません。普通は挿入タブをクリックして「行」をクリックすれば自動的に任意の箇所に行挿入できるのですが、何かの設定不足でしょうか。全く挿入できません。どなたか教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセル2003～行挿入できない～
すみませんが、お分かりの方いらっしゃいましたら教えてください。 エクセル2003（ＸＰ）を使用しております。 作成中の表に、行を挿入したいと思い、実行すると、 「データの消失を防ぐため、空白でないセルをワークシートの外にシフトすることはできません」 と表示されエラーが出ます。 どのようにすれば、行挿入が可能になるでしょうか。 お手数お掛け致しますが、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- excelでシート：何行あるのか
excelでシート内行数が数千のデータを扱うとき、ぱっと何行あるのか、 或いはぱっと最終行に移動できるとかどちらでもいいが、そのような方法あれば教えて。 マクロを使っても、式を使っても可です。
- ベストアンサー
- オフィス系ソフト
補足
有難う御座います！追加はできました・・・。 １つ補足で・・・。 いつ上の行の式がコピーされる・・・というようなことはさすがに不可能ですよね？