- 締切済み
エクセルで複数のシートのコピー方法は
エクセルで シート1～シートN までの複数シートを シート名(集計)にコピーする マクロで関数組む方法を指導願います 条件1 シート名は 作業のつど 名前が 変更します 条件2 シートの形式は全部同じです エクセル 2000
- ryo0511
- お礼率38% (47/122)
- その他(データベース)
- 回答数1
- ありがとう数4
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- merlionXX
- ベストアンサー率48% (1930/4007)
コピーされるシートは「集計」というシートの左側に配置してください。 左側から指定した枚数だけ集計シートにコピーします。 Sub test01() x = Application.InputBox("何枚コピーするの？") For n = 1 To x Worksheets(n).UsedRange.Copy With Sheets("集計") y = .UsedRange.Cells(.UsedRange.Count).Row .Cells(y, 1).PasteSpecial End With Application.CutCopyMode = False Next End Sub
関連するQ&A
- エクセルマクロで複数シートのコピー
マクロ初心者です。お世話になります。 アンケート集計に関するマクロの記述を色々調べたのですが、どうもよくわかりません。お手伝いいただけると助かります。 【ファイル前提】 (1)ファイルには複数のシート（最大で100シート）があります。（シート名は回答、回答（2）、回答（3）というような感じです。 (2)各シートともアンケート質問及び回答で構成され、どのシートも同じ形式です。 【実施したい作業】 (1)各シートの解答欄（C2:C100）をコピーし、新しいシート（集計用）にコピーをしたい。 (2)回答が列になっているので、行列を入れ替えて集計用シートに順番に貼り付けたい。 色々検索した結果、新しいシートを挿入して、繰り返し処理をすればいいような感じはわかるのですが、初心者のため、コードがよく読めません・・・ これから勉強します。よろしくお願いいたします。
- ベストアンサー
- その他([技術者向] コンピューター)
- エクセルのマクロで複数のシートのコピー
エクセル初心者です。 私の場合、3から5社のフォルダが作ってあり、それぞれ、エクセルで、日々の入出庫の管理＆集計をしています。 3社のフォルダより、指定ファイル・シート内のデータをピボットテーブル用集計シートにコピー貼り付けしたいのです。 ピボットテーブル機能で複数のシートを選択するのはシート数が多すぎて手間。 マクロによって、集計シートにまとめてから、ピボットテーブル機能を使いたい。 各社シートのフォームは同じ.。 日付けを指定してコピー貼り付けしたい。 集計シートに各社連続で貼り付けがしたい。 集計シートの最初の行だけにタイトルを表示したい。 なるべく、フォームの行・列幅は変更しないようにしたい。 貼り付けたデータのユーザー名がわかるようにしたい。 なにとぞ、お力をお貸しください。 よろしくお願いいたします。 エクセル2003
- 締切済み
- その他MS Office製品
- エクセルのシートをコピーしたら
一つのブック内で同じ形式のシートをコピーして複数作りました。 具体的には月報の用紙をひな形を作ってコピーしたのですが、どのシートに入力しても全部のシートに反映されてしまいます。 これを解消するにはどうすればよいのでしょうか？ エクセル2007で2003形式で保存してあります。
- ベストアンサー
- その他MS Office製品
- エクセル 複数シートの同一セルを別シートへ集計
エクセルで複数sheetの同一セルを集計sheetへコピーしてきて一覧にし、集計するという作業を行なっています。 1～20のsheet（sheet数sheet名は変動します）を作り、一番右側に集計sheetがあります。 集計sheetのA5へsheet1のF10、A6へsheet2のF10・・・（内容は文字列） 集計sheetのB5へsheet1のG10、B6へsheet2のG10・・・（内容は数値） とコピーしていき、B30にはB5～B29の合計がSUM関数で入っています。 VBAで、集計sheetから左側のsheetの指定セルを一気に集計sheetへコピーしてくる方法はないでしょうか。 ただし集計sheetから左側のsheet21とsheet22は集計に入れたくないという式も教えて頂きたいです。 お時間のある方、ご教授下さい。 または別の質問で参考になるようなものがあればアドレスを教えて下さい。 説明が下手で申し訳ないですが、どうぞよろしくお願いします。
- ベストアンサー
- Visual Basic
- Excel VBA 複数ブックのシート結合方法
複数ブックの特定のシート(都度指定)のみを結合するマクロを組みたいです。 例えば、「ファイルマージ前」というフォルダがあって、その中には数値のみ違う同フォーマットのアンケート集計結果が保存されています。 このフォルダ内には50ほどのブックが保存されていて、そのブック内の「N表」というシート(50あるブック内全てに存在するシート)を新規ブック(マクロを組み込むブック)の1シートに上から順に値コピーしていきたいです。 今後、別の機会でファイルマージが必要になった際にも使用出来る様に、シート名を都度指定(セルにシート名を入力して、そのシート名を参照する等)出来るようにしたいのですが、自分の知識とネット等で調べた情報のみではうまく作成出来ませんでした。 詳しい方のお知恵をお借りしたいです。 宜しくお願い致します。
- 締切済み
- Visual Basic
- ＥＸＣＥＬ 複数シートを1つのシートに集約する方法
1つのブックに複数（30程度）の同一フォームのシートがあり、それらを1つのシートにまとめる方法があれば教えて下さい。 データを統合（集計）するわけではなく、単純にシート１の最後のデータの次の行にシート２のデータを追加、同様にシート３～最後のシートのデータを次々に追加したいのです。 手作業でデータをコピー＆ペーストでももちろん可能ですが、結構時間がかかりますので簡単なマクロでできれば助かります。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 複数シートの値のみコピーで
こんにちは いつもお世話になっています。 先日、選択した複数のシートを新しいブックに値だけコピーするマクロをこちらで教えていただきました。（関数が入ったシートなのでタブの右クリックからの新規ブックへのコピーでは関数がコピーされてしまうので） 今回、このマクロで失敗するシートがあったので原因を教えてください。 値だけコピーするマクロは以下です。 Sub 値コピー() Dim WS As Worksheet ActiveWindow.SelectedSheets.Copy For Each WS In ActiveWorkbook.Worksheets With WS.Cells .Copy .PasteSpecial Paste:=xlPasteValues End With Next Application.CutCopyMode = False End Sub 失敗するシートにはつぎの関数があります。 A1セルに=REPLACE(CELL("filename",A1),1,FIND(".xlsx]",CELL("filename",A1))+LEN(".xlsx]")-1,) B3セルに=IF(COUNTIF(Sheet2!$1:$1,$A$1),IF(ROWS($3:3)>COUNTIF(OFFSET(Sheet1!$J:$J,,MATCH($A$1&"クラス",Sheet1!$J$1:$N$1,0)-1),B$2),"",COUNTIFS(OFFSET(Sheet1!$C:$C,,MATCH($A$1,Sheet1!$C$1:$G$1,0)-1),">"&INDEX(Sheet1!$C:$G,MATCH(B$2&"☆"&ROWS($3:3),OFFSET(Sheet2!$A:$A,,MATCH($A$1,Sheet2!$A$1:$E$1,0)-1),0),MATCH($A$1,Sheet1!$C$1:$G$1,0)),OFFSET(Sheet1!$J:$J,,MATCH($A$1&"クラス",Sheet1!$J$1:$N$1,0)-1),B$2)+1&"位 "&INDEX(Sheet1!$B:$B,MATCH(B$2&"☆"&ROWS($3:3),OFFSET(Sheet2!$A:$A,,MATCH($A$1,Sheet2!$A$1:$E$1,0)-1),0))&" "&INDEX(Sheet1!$C:$G,MATCH(B$2&"☆"&ROWS($3:3),OFFSET(Sheet2!$A:$A,,MATCH($A$1,Sheet2!$A$1:$E$1,0)-1),0),MATCH($A$1,Sheet1!$C$1:$G$1,0))&"点"),"") 別シートのデータから条件に合うものを引き出す関数です。 これらの関数もおしえていただいたもので、まだ理解できていませんので、説明不十分で申し訳ありません。 これらの関数があるシートではなぜ上記のマクロが失敗するのでしょうか。 もちろん、シートのデータを選択、コピーして新規ブックに値のみコピーはできます。 上記のような関数があるシートでも複数選択シートでの値のみコピーができるマクロを教えていただけないでしょうか。 情報不足がありましたら、教えてください。 よろしくお願いします。 エクセル2007
- ベストアンサー
- オフィス系ソフト
- エクセルで異なったフォームのデータを複数のシートから集計する方法を教えて。
アクセスは使えません。 マクロの意味は解りますがプログラミングは出来ません。 エクセルの範囲で、複数シートのフォームがばらばらのデータからA品、B品、C品等々。。。と小計を集計シートに集計して総合計を出したいのです。 これが出来るならば、複数のフォルダの集計も出来るのでしょうか？ エクセルで集計しているという人がいるのですが、そのような方法をテキストでも見つけることが出来ません。 私のソフトはウインドウズXP エクセル2003です。 宜しくお願いします。
- 締切済み
- Windows XP
- Excel計算式の、参照先シートを簡単に変更する方法を教えてください。
Excelの計算式で使用している参照先（別シート）を簡単に変更する方法を教えてください。 具体的には、『JPY』、『JPY集計』『USD』の３つのシートがあります。 『JPY集計』シートでは『JPY』シート値を参照しており、下記のような式が沢山あります。 =SUMPRODUCT(('JPY '!O7:O448=B8)*('JPY '!P7:P448="")*'JPY '!N7:N448) （ちなみに上記では、JPYシート内の複数条件に合致するレコードのN列セルを集計しています） そこで、『JPY集計』シートをコピーして『USD集計』シートを作成し、『USD』シートのデータを参照するよう変更したいのです。 一般的な’置換’機能では’JPY’を’USD’に変更することはできませんでした。また、INDIRECT関数でシート名を別に定義できないかと思いましたが不慣れのためかうまくいきませんでした。 今後もこのような集計シートを作成することが多々あるので、後任のためにも簡単にできる方法を教えてください。 よろしくお願いします。
- 締切済み
- Windows XP
- エクセルの集計の仕方について。（シート複数）
エクセル初心者です。アンケートの入力作業をしています。データ量が何万件とあるので、各それぞれが入力できるようにシート別にして、手分けしてアンケートの入力作業をしています。全部で10シートほどあります。これを集計するので、１つのシートにまとめたいのですが、どうすればいいのでしょうか？コピーして挿入？？分かる方いましたらご教示ください。宜しくお願いします。
- 締切済み
- オフィス系ソフト
お礼
有難う 済みません 出来ました スペルが ぬけていました
補足
早速 有難うございます でも SUB または functionが定義 されていません と コン゜ルエラが でます 指導願います