• ベストアンサー

エクセルマクロでシート複製

こんばんは、エクセルでシート(1)とシート(2)を作成し、(1)の内容を(2)に反映させています。 この(1)(2)の組み合わせを何組も作りたいのですが、どのようにしたらよいのでしょうか? 例えば、シートA(1)とシートA(2)、シートB(1)とシートB(2)といった感じです。そこで数式を入れるのにSheetB(2)!A1セルに =SheetA(1)!A1というふうにそれぞれシート名を指定するのではなく、自動でシート名を入力させるというような方法はありませんでしょうか? 大変困っています。 よろしくお願い致します!!!!!!!!!!

質問者が選んだベストアンサー

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.2

質問を誤解しているかもしれませんが、Sheet1と、それを参照しているSheet2 2つのシートがあり、このペアのシートを複製し、複製されたペアのシートが、Sheet1とSheet2と同じような参照関係であればいいんですか? それなら Sheets(Array("Sheet1", "Sheet2")).Copy After:=Sheets(Sheets.Count) でどうでしょうか?

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (3)

  • hige_082
  • ベストアンサー率50% (379/747)
回答No.4

一例です Sub test() ActiveSheet.Copy after:=Sheets(ActiveSheet.Name) End Sub 参考まで

全文を見る
すると、全ての回答が全文表示されます。
  • xls88
  • ベストアンサー率56% (669/1189)
回答No.3

色々方法はあると思いますが、シートのIndexプロパティを使う例です。 Sheets("シートA").Copy After:=Sheets("シートA") Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection.FormulaR1C1 = "=" & Sheets((ActiveSheet.Index) - 1).Name & "!RC"

全文を見る
すると、全ての回答が全文表示されます。
  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

シート1とシート2を選択(グループ化)して、シートのコピーを作成します。 シートの選択方法 CtrlかSheftキーを押しながらシートタブをクリックします。 【グループ化】 http://trendy.nikkeibp.co.jp/article/tec/excel/20040309/107639/ http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-sheet5.html#sagyougroup シートのコピー 選択したシートタブをCtrlキーを押しながらドラッグします。 http://www.helpfulnotes.info/ex_katsyo02.html

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセル マクロ

    エクセルを使って12桁の数字をsheet A と sheetBとの違いを調べる、表?をつくりたいのですが、マクロを使えば簡単と聞きました、マクロは全くわからないので、マクロを使わなくてもいいのですが、良い方法はありますか?  例えば エクセルの sheet A に 12桁の数字を50, sheet Bに12桁の数字を50, その中からsheetAにはあってsheetBには無いもの、sheetAには無くてsheetBには有るもの を色をつけてわかるようにしたいと思っています。 みなさんよろしくお願いいたします。

  • sheet1セルA1のデータ切り替えについて

    Excel2010に3つのシートsheetA、sheetB、sheetC があります。 それぞれセルA1のデータは,sheetAのA1=ブランク、sheetBのA1=b、sheetCのA1=c とします。 この状態で、 sheetBがActiveの時に、sheetAのA1=b sheetCがActiveの時に、sheetAのA1=c になるような関数、もしくはマクロを組み込みたいと思います。 どのようにしたら実現できますでしょうか? よろしくお願いします。

  • Excelシート

    ExcelシートBに打ち込んだ数字をAに反映させたい。シートAのセルに=をBのセルを範囲を指定してエンターしましたが♯VALUE!となりました…=シートB!BS55:BZ55どうしたらシートAに反映するのでしょうか教えて下さい。

  • VBAでおしえてください

    お世話になっております。 今、5個のエクセルファイルがあり、それぞれ複数のシートで構成されていますが、シート名、並び順は、5個のファイルとも共通です。 シート名は、sheet1から、A,B,C,D,・・・・と割り振っております。 ここで、同じシート名のdataを同じシート内に集めたいです。。 (元DATAの形式) ファイル1 SheetA SheetB セル DATA セル DATA B2 2 B2 8 B3 3 B3 5 B4 4 B4 6 ファイル2 SheetA SheetB セル DATA セル DATA B2 6 B2 2 B3 5 B3 3 B4 1 B4 4 VBA変換後 ファイル1 SheetA セル DATA セル DATA B2 2 C2 6 B3 3 C3 5 B4 4 C4 1 よろしくお願いいたします

  • エクセルで自動的に範囲選択させるには?

    職場のエクセルの表を壊してしまいました。チカラを貸してください。 SHEETaに表があります。 常に表の最終行にデータを入力しています。  A10     B10    C10    D10   E10 3月3日   りんご   8個   みかん  5個 この一部を同じブックのSHEETbの表の最終行に =IF(SHEETa!A10="","",SHEETa!A10)といったふうに返しています。  A15     B15    C15 3月3日   みかん   5個 ちなみにSHEETaとSHEETbのデータの並び順は違います。 行の番号も違います。 作業としては、SHEETaを入力したあと、SHEETbの最終行を1行だけ 印刷します。 SHEETaを入力すると自動的にSHEETbの最終行が選択されるようにするにはどうしたらいいのでしょうか?    

  • エクセル:別のシートへ抽出したデータをリンクさせたい。

    QNo.2970713の質問内容についてなのですが、 次のようなシートがあります。(シートAとします。)     A    B    C  … [1] 001  AAA [2] 002  BBB  あああ [3] 003  CCC [4] 004  DDD   [5] 005  EEE  いいい C列の空欄データは除外して、C列にデータが記入されているものだけ別のシートに(シートB)に行ごとリンクさせたいと考えています。 (この場合だと2列と5列です。) シートAには今後もデータが追加される想定で、新しいデータで当てはまるものは自動的にシートBに反映されるようにさせたいです。 この回答の中で、 ★SheetBに =IF(ROW(A1)>COUNTA(SheetA!$C:$C),"",INDEX(SheetA!A:A,SMALL(INDEX(SUBSTITUTE((SheetA!$C$1:$C$10<>"")*1,0,10^5)*ROW(SheetA!$C$1:$C$10),),ROW(A1)))) ★右と下にコピー あるのですが、C列がvlookuo等の数式が入っていると、#REF!となってしまします。 この#REF!を表示させない方法を教えて下さい。

  • Excel 別シートのセルを参照させる時の疑問

    エクセルであるシート(A)のセルに、別シート(B)の特定のセルを参照させたい場合、(A)のセルに= を入力し、続けて(B)の参照させたいセルを選択すると、=の後に選んだシート名+「!」+セル名が表示されます。 同じ作業をいくつか続けて行っているのですが、一カ所だけ「=」のあとのシート名が 「'」マークでくくられます。 問題なく選択したセルの参照は行えるのですが、この「'」は何を表しているのでしょうか。 分かりにくいので例を書きますと、たとえば「sheetA」の「A1」を参照させた場合、 ケースその1 : =sheetA!A1 ケースその2 : ='sheetA'!A1 このような違いがあります。 お分かりになる方がいらっしゃいましたら、恐れ入りますがよろしくお願いいたします。

  • excelのマクロについて。

    sheetAにデータの一覧があります。 商品aだったらsheetBへ、商品bだったらsheet3へ・・・ という振り分けをボタン一つでできるマクロを作成したいのですが、 どのようにすればいいでしょうか?(vbはあまりわかりません・・・) sheetAにデータをどんどん追加して、ボタン一つで振り分け・・・・ とういうのが理想です。 良い知恵をかしてください。宜しくお願いいたします。

  • excelのオートフィル

    すいません、いろいろと調べてみましたがわからなかったので質問させてください。 あるシート(sheetA)に集計データがあり、それを別シート(sheetB)に表示したいとき、 シート名を固定し、参照するセル番号を10刻みで増やしたい場合、オートフィルで可能でしょうか? 具体的には、sheetAのAE4~AE242およびにランダムな数値データがあった際に、 ・sheetBのB3~B26にsheetAのAE4,AE14,AE24・・・と十刻みでコピー ・sheetBのC3~C26にsheetAのAE5,AE15,AE25・・・と十刻みでコピー ・sheetBのD3~D26にsheetAのAE6,AE16,AE26・・・と十刻みでコピー ということをしたいと思っています。 拙い文章で恐縮ですが、どなたか教えていただけると幸いです。 よろしくお願いいたします。

  • エクセルで入力済みのセルのみ見つけて・・

    エクセルで入力済みのセルだけを見つけ出して、 指定した場所に並べる作業をマクロで1発で出来るようにしたいのですが、その方法を教えてください。 シートが37シートあります。(sheetA1~sheetA12,sheetB1~sheetB12,sheetC1~sheetC12,sheet37) それぞれセルC5からC20まで数値が入っていますが、 最終行はC20とは限りません。(sheet37はまとめるためのシートで空白) C15が最終行の場合もあれば、C18が最終行の場合もあります。 各シートそれぞれ最終行が違います。(列は同じですスタートもC5です) 各シートのC列の入力済みのセルの数値をsheet37のB1セルから順番に縦に並べたいのです。 A,B,Cのシート順にC列に入力された数値を縦に並べます。 空白は無しで詰めて並べます。 これを1回の作業でできるマクロを教えてください。 それから入力済みの最終行を見つけ出すマクロの部分を表示して頂けるとありがたいです。 宜しくお願いします。

このQ&Aのポイント
  • 突然FAXの送受信ができなくなりました。配線やFAX機の設定は変更していないため、故障が疑われます。対策としては、配線の挿し直しや周辺機器の再起動、FAX回線の確認などがありますが、同じ商品を新品で購入しても症状は改善されませんでした。
  • 購入したFAX機の設定も様々な試みを行いましたが、結果は同じで送受信ができません。さらに、電話回線の種類は光回線です。このような状況でFAXの送受信ができない原因や解決方法をご教示ください。
  • 質問内容より、突然FAXの送受信ができなくなり、配線やFAX機の設定を変更していないため、故障が疑われます。対策としては配線の挿し直しや周辺機器の再起動、FAX回線の確認などがありますが、このような対処方法でも症状は改善されず、同じ商品を新品で購入しても問題は解決していません。さらに、光回線を使用しているとのことです。この状況でFAXが送受信できない原因や解決策についてご相談させてください。
回答を見る

専門家に質問してみよう