- ベストアンサー
複数のシートにまたがるデータをひとつのシートにまとめるには(VBA)
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
"統合"という名前のシートに、他のすべてのシートのリストデータを貼り付けます。 各シートのリストはＡ列から始まっているものとします。（違う場合はコードを修正してください） Sub test01() Dim sh As Worksheet Dim lr As Long, tlr As Long For Each sh In Worksheets If sh.Name <> "統合" Then lr = sh.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row sh.Rows("1:" & lr).Copy tlr = Sheets("統合").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Sheets("統合").Range("A" & tlr + 1).PasteSpecial Application.CutCopyMode = False End If Next End Sub
関連するQ&A
- 異なるブックのデータを同一シートに貼り付けるには
いつもお世話になっております。 異なるExcelブックのデータ(リスト形式)を一枚のシートに貼り付けるにはどのようなプログラムを組めばよろしいでしょうか。 ・ExcelファイルはOutlookの受信メールにひとつずつ添付されており、各ブックにはシートが一枚のみがあるものとします。 ・受信メールは全て特定のメールフォルダに保存されています。 (1)受信メールの添付のExcelファイルを開く (2)シートの2行目から5行目を選択してコピー (3)"統合"シート(別ファイル)に貼り付け (4)Excelファイルを閉じる (5)次の受信メールのExcelファイルを開いて2行目から5行目をコピー→"統合"シートの最終行の次の行に貼り付け→ファイルを閉じる。 (6)メールフォルダの中の全ての添付ファイルについて(5)を繰り返す。 なお、ファイルを開かなくても貼り付け作業ができる場合にはそちらでお願いします。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセル 複数シートのデータを1シートにまとめるマクロ
エクセルの複数シートにデータがあります。同じ条件の人のデータだけをひとつのシートにまとめたいのですが、マクロを教えていただけますでしょうか。それとも、マクロ以外に良い方法がありますか？ エクセル初心者なので、あたりまえのことも知らないかもしれません。。。 【データ】 ●シート１からシート20まで、同じ配列でデータがあります。 ●１行目は見出しです。２行目から１人づつのデータです。（多くても65行までと思っています。） ●A列に到達度、B列に出欠をいれました。 ●C列からM列が氏名、課題、その他のデータです。 ●リストはシート21にあります。 【こんな作業でしょうか？】 ●シート１から20で A列が「C」または「D」ならば その行のA列からM列をコピーして シート21のA列からM列に形式を値にして張り付ける ●シート１から20で B列が「欠」ならば その行のA列からM列をコピーしてシート21のA列からM列に形式を値にして張り付ける （っというのが私の乏しい知識で考えた方法なのですが、これでは不具合がでますか？ もちろん、この方法じゃなくもっといいのがあれば、それをやってみたいです。）
- ベストアンサー
- オフィス系ソフト
- 複数のシートの統合について
複数のシートの統合について ８月から社内で異動があり、データ管理を作成することになりました。 現在取り組もうとしている作業は、ネット情報等で自分なりに調べた結果、 マクロを使わなければならないと判断し、本を買って勉強しています。 しかしＶＢＡは超初心者で、期日までに間に合いそうにありません。 どうすればよいのかわからず、質問させていただきました。 どなたかご存じの方、ご教授願います。 内容は、 複数（15枚以内）のシートを１枚の統合シートにまとめるのですが、 新規行を入力後、その都度、統合シートの最終行に自動コピーされるようにしたいのです。 シート全体を統合シートにまとめるのはArrayやループ処理等を使って出来るようになったのですが。 ＶＢＡでなくともエクセル関数でも出来るのであれば、その方法も教えていただきまいと思います。
- 締切済み
- オフィス系ソフト
- ＥＸＣＥＬ 複数シートを1つのシートに集約する方法
1つのブックに複数（30程度）の同一フォームのシートがあり、それらを1つのシートにまとめる方法があれば教えて下さい。 データを統合（集計）するわけではなく、単純にシート１の最後のデータの次の行にシート２のデータを追加、同様にシート３～最後のシートのデータを次々に追加したいのです。 手作業でデータをコピー＆ペーストでももちろん可能ですが、結構時間がかかりますので簡単なマクロでできれば助かります。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数のシートのデータをひとつのシートに纏める
EXCELにおいて、複数のシートのA列のデータをひとつのシートにまとめるにはどのようなマクロを組めばよいのでしょうか。 （内容） ”Cycle1”SheetのA列をコピー⇒”まとめ”SheetのA列に貼り付け ⇒”Cycle2”SheetのA列をコピー⇒”まとめ”SheetのB列に貼り付け ⇒”Cycle3”SheetのA列をコピー⇒”まとめ”SheetのC列に貼り付け ⇒”Cycle4”SheetのA列をコピー⇒”まとめ”SheetのD列に貼り付け ・・・。 現在は、上記の内容を手動でやっており、シート数が多い場合大変です。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- 複数シートからデータを抽出したい
教えてください。 複数のシートから同じデータを抽出したいのです。 各々シートの行、列データは等しくない状態となっております。 4行目から○○を検索し、一致するものがあれば”固定のB列”と一致した列を抽出する、をシート2、3と繰り返して統合されたシートを完成させる、という流れにしたいのですが最終行の取得、そこから続きにコピーというイメージまではわかるのですが固定のB列と一致した列を抽出させる方法がわからないのです。 どのような処理で実行できるでしょうか？
- 締切済み
- オフィス系ソフト
- 複数のシートから重複するデータを別シートに抜き出す
こんにちは。 Excel2007です。 複数のシート(現在はSheet1からSheet4ですが、最終的にはSheet10ぐらいまでになります)に蔵書データが入っています。 A列21行目から作者名、B列21行目から本のタイトル、C列21行目からページ数と以下、値段、ISBNなどJ列まで蔵書データが入っています。本棚ごとにSheet1、Sheet2と分かれて入力されています。 この複数のシートから本のタイトルが重複するものを別シートに抜き出すにはどうしたらいいでしょうか？ 重複データを削除するマクロや関数は探せたのですが、複数のシートにまたがっている場合は探しきれませんでした。 何かいい解決方法があればご教授下さい。
- 締切済み
- その他MS Office製品
- エクセル：複数シートの一括処理
お世話になります。 エクセルで１つのブックに複数のシートがあります。 書式は同じですが行数がそれぞれ違います。 Ａ列で、データが入力されている一番下のセルの次の行から、エクセルの最終行である６５５３６行までの行を全て選択して「削除」をしたいのです。（行の削除）しかも全シート一括で。 Ａ列でデータが入っている一番下のセルがＡ５５０だった場合、５５１行～６５５３６行までを全て選択→削除を行う。 これらの作業をするためのマクロを教えてください。
- ベストアンサー
- オフィス系ソフト
- 複数のワークシートから循環してペースト
エクセルのマクロについて質問です。 複数のワークシートを循環して貼り付けれるマクロを作りたいのですが わかる方教えてください。 やりたいことは、sheet1のD列の3行目の数値を空白にまでコピーし、別ブックのsheet1のB列の4行にはりつけし 次にもとのブックのsheet2のD列の3行目の数値を空白にまでコピーし、別ブックのsheet2のB列の貼り付けた最後尾に貼り付けし また、もとのブックのsheet3のD列の3行目の数値を空白にまでコピーし、別ブックのsheet3のB列の貼り付けた最後尾に貼り付け という作業を循環してほしいです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- EXCELで1シートのデータを複数シートにコピー
あるひとつのシートにあるデータリストを他のシートへデータひとつにつき１シートへコピーしていきたいのですが、簡単な操作でできませんか（マクロ等） シート１ A １ 159 ２ 200 ３ 145 のコピー元に対し、(1)(2)(3)の３つのシートのそれぞれ特定のセル位置にコピーし、以下のようにする シート(1) B 2 159 シート(2) B 2 200 シート(3) B 2 145 という感じにします。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
お礼
merlionXXさんありがとうございます。一発で解決しました！