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

VBAを100本の練習問題で鍛えます
最終更新日: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秒ごとに時刻が表示


新着記事NEW ・・・新着記事一覧を見る

TOROW関数(配列を横1行の配列にして返す)|エクセル入門(2022-10-31)
TOCOL関数(配列を縦1列の配列にして返す)|エクセル入門(2022-10-31)
CHOOSECOLS関数(配列から複数の指定された列を返す)|エクセル入門(2022-10-29)
CHOOSEROWS関数(配列から複数の指定された行を返す)|エクセル入門(2022-10-29)
WorksheetFunctionの効率的な使い方とスピル新関数の利用|VBA入門(2022-10-27)
VSTACK関数(配列を縦方向に順に追加・結合)|エクセル入門(2022-10-25)
HSTACK関数(配列を横方向に順に追加・結合)|エクセル入門(2022-10-25)
LAMBDA以降の新関数の問題と解説(配列操作関数編)|エクセル入門(2022-10-24)
LAMBDA以降の新関数の問題と解説(ヘルパー関数編)|エクセル入門(2022-10-24)
LAMBDA以降の新関数の問題集|エクセル入門(2022-10-24)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Excelショートカットキー一覧|Excelリファレンス
7.並べ替え(Sort)|VBA入門
8.マクロって何?VBAって何?|VBA入門
9.エクセルVBAでのシート指定方法|VBA技術解説
10.ExcelマクロVBAの基礎を学習する方法|エクセルの神髄




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


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



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