Excel・CSV ExcelVBA 効率化

複数のシートをコピーして1つのシートに縦にまとめるエクセルVBA

投稿日:2019年5月19日 更新日:

ブックにある複数のシートを1つのシートに縦にまとめるエクセルVBAをご紹介します。

次のサンプルコードを使うと、

  • 「ファイルを開く」ダイアログを表示。
  • シートをまとめたいエクセルブックを選択。
  • 選択したエクセルブックに、集約用シートを追加。
  • エクセルブックに含まれる全シートをコピー、集約用シートにまとめる。

という作業を自動化します。

処理イメージ

エクセルブック内にある複数シートをコピー、集約シートを追加して縦に貼り付けてまとめます。

操作方法

1、
下記サンプルコードを含むエクセルファイルを開き→「開発」→「マクロ」の順でクリック。
「Aシート縦に集約」→「実行」の順でクリック。

2、
ファイルを開くダイアログが表示されるので、シートをまとめたい対象のエクセルブックをクリックして、「開く」をクリック

3、
マクロが実行されます。
「集約シート」を追加、各シートをコピーして、
「集約シート」に各シートのデータを縦向きに貼り付けます。

完了です。

サンプルコード

コードの特徴

  • 「ファイルを開く」ダイアログを表示した後、キャンセルをクリックした場合、
    キャンセル処理される様に対応しています。
  • セル、行、列に空白がある場合でも、
    シート毎のデータが含まれる最終行からA行までをコピーして集約します。
  • 集約用にシート「集約シート」を作成します。
    同名シートが既にある場合、同名シートを削除するかの確認ダイアログを表示させ、
    削除するかどうかを選択可能です。

スポンサーリンク

pr001




pr001




-Excel・CSV, ExcelVBA, 効率化

執筆者:

関連記事

Googleスプレッドシートで、特定文字が入力された行に自動で色を付ける方法

作業概要・目的 スプレッドシートで案件管理、タスク管理をする等の際、 進捗入力欄に特定文字を入力すると行の色を自動で変更することで、 視覚的に案件状況、タスクを把握し易くする。 詳細手順 1、背景の色 …

パワーポイントのスライド番号を背景に取り込む方法

作業概要・目的 パワーポイントのスライド番号を背景に埋め込み、触れない様にする。 資料作成時に間違ってスライド番号を動かしたり編集しない様に出来る。 詳細手順 1、パワーポイントを開き、スライドマスタ …

複数のCSVを一括でまとめる方法

  作業概要・目的 複数のCSVファイルを1ファイルにまとめる作業を自動化、効率的に処理する。 詳細手順 1、まとめたいCSVファイルを1つのフォルダに格納する。 フォルダを新規作成し、まと …

仕事の速い人のシンプルな3つの工夫

仕事が圧倒的に速い人がいます。 「仕事の速い人」はどうして仕事が速いのか、 「仕事の速い人のシンプルな3つの工夫」をご紹介します。 整理整頓している 「仕事の速い人」は「整理整頓」しています。 「仕事 …

ブックのシート名を取得して一覧表を作成するエクセルVBA

ブックにあるシート名を取得して一覧表を作成するエクセルVBAをご紹介します。 次のサンプルコードを使うと、 「ファイルを開く」ダイアログを表示。 シート名を取得したいエクセルブックを選択。 選択したエ …