VBA100本ノック 63本目：複数シートの連結

最終更新日：2021-02-22

VBA100本ノック 63本目：複数シートの連結

ブック内の複数シートを1つのシートに連結して出力する問題です。

ツイッター連動企画です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。

VBAテスト用のサンプルデータは、VBA100本ノックの目次ページ からもダウンロードできます。

マクロVBAを初心者向けの基本から上級者向けの高度な内容までサンプルコードを掲載し解説しています。エクセル関数・機能・基本操作の入門解説からマクロVBAまでエクセル全般を網羅しています。

出題

#VBA100本ノック 63本目
ブック内には「yyyy年mm月」シートが複数あり全て同一フォーマットです。
(A1開始で空行なく連続している)
これらのシートを一つに統合したシートを作成してください。
ただし1行目は見出し行なので先頭に1回だけの出力にしてください。
※出力シートは先頭に挿入（名称任意）

「統合」と言う言葉が曖昧で良くないですね。
単純な「連結」です。
複数シートのデータを縦に連結してください。
ただし、見出し行は最初の1行目だけ出力。

サンプルファイルです。
https://excel-ubara.com/vba100sample/VBA100_63.xlsm
https://excel-ubara.com/vba100sample/VBA100_63.zip

VBA作成タイム

この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。

他の人の回答および解説を見て、書いたVBAを見直してみましょう。

頂いた回答

出題ツイートの引用ツイートでの回答

解説

シートの追加は既に何度か出ています。
複数シートを1シートにまとめる問題は「40本目：複数ブックの統合」でやりました。

・出題・頂いた回答・解説・補足・サイト内関連ページ

Like演算子も何度か出ています。
これらを組み合わせれば完成します。


  
    
      Sub VBA100_63_01()

　　Dim wb As Workbook, wsOut As Worksheet

　　Set wb = ThisWorkbook

　　Set wsOut = getWorksheet(wb, "全シート連結")

　　wsOut.Cells.Clear

　　

　　Dim ws As Worksheet, outRow As Long

　　For Each ws In wb.Worksheets

　　　　If ws.Name Like "####年##月" Then

　　　　　　If outRow = 0 Then ws.Rows(1).Copy wsOut.Rows(1)

　　　　　　outRow = wsOut.Range("A1").CurrentRegion.Rows.Count + 1

　　　　　　ws.Range("A1").CurrentRegion.Offset(1).Copy wsOut.Cells(outRow, 1)

　　　　End If

　　Next

End Sub


Function getWorksheet(ByVal wb As Workbook, ByVal aName As String) As Worksheet

　　On Error Resume Next

　　Set getWorksheet = wb.Worksheets(aName)

　　If Err.Number = 0 Then Exit Function

　　Set getWorksheet = wb.Worksheets.Add(before:=wb.Worksheets(1))

　　getWorksheet.Name = aName

End Function

今回は、復習の意味で過去問から組み合わせを変更した問題を出してみました。
ループ内での分岐のさせ方等、過去問の解答コードとは細部で少しずつ変更しています。
補足はありません。

補足

補足はありません。

サイト内関連ページ

第49回．Like演算子とワイルドカード

・Like演算子・パターン文字列式（ワイルドカード、文字リスト、文字範囲）・Like演算子の使用例・正規表現について

第59回．コレクション処理（For Each）

・For Each の構文・Exit For ・For Each の使用例・RangeオブジェクトのFor Each ・For Each サイト内の参考ページ

第62回．「On Error Resume Next」とErrオブジェクト

・On Error Resume Next ・Errオブジェクト・On Error Resume Next の使用例・「On Error Resume Next」の最後に

第65回．シートの挿入、名前の変更（Add,Name）

・シートの挿入・シートの名前変更・シート挿入、名前変更の実践例

同じテーマ「VBA100本ノック」の記事

60本目：「株式会社」の表記ゆれ置換
 61本目：「ふりがな」の取得と設定
 62本目：独自のZLOOKUP関数を作成
63本目：複数シートの連結
64本目：リンクされた図（カメラ機能）
65本目：固定長テキスト出力
 66本目：全サブフォルダからファイルを探す
 67本目：ComboBoxとListBox
68本目：全テキストボックスの転記
 69本目：ダブルクリックでセル結合を解除
 70本目：ステータスバーに1秒ごとに時刻が表示

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.マクロとは？VBAとは？VBAでできること｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.条件分岐（IF）｜VBA入門
9.並べ替え（Sort）｜VBA入門
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門

ホーム
マクロVBA入門編
VBA100本ノック
63本目：複数シートの連結

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA練習問題
VBA100本ノック 63本目：複数シートの連結