データを1シートにまとめる topへ 【前提条件】 複数シートのデータ(元データ)は同じ列見出しのものが同じように並んでいるものとします。 1行目には列見出しがあり、まとめる(コピーする)データは2行目以降にあるとします。 データをまとめるシート名は「全データ」とします。 各シートの状態例(元データ) Sheet1 Sheet2 Sheet3 なお、各シートは下図のように並んでいます。 まとめ用のシート「全データ」の有無を調べる まとめ用のシート「全データ」の有無を調べ、「全データ」が無いときはシートの先頭に新しく追加します。 すでにある場合はデータをすべてクリアし、シート見出しの先頭に移動します。 このコードは以降の各コードから実行しますので、標準モジュールに記載する必要があります。 【コード例】 Sub sh_check() Dim newSh As String Dim Sh