エクセル シート 一 枚 に まとめる

複数のシートをひとつにまとめる方法。 Excelで90枚あるシートを新しいシートにひとつに一気に縦にズラーっと並べる方法をわかる方いらっしゃいましたら教えてください。 2人 が共感しています シートの書式や数式ごとコピーしてまとめるのでしたら、シート単位でひとつひとつ手作業でコピーするか、マクロを利用するかでしょう。 マクロでも、別シートを参照している数式は正しく反映されませんが‥‥ とりあえず、マクロの場合です。 [開発]タブの[Visual Basic]から開くウィンドウの[挿入]-[標準モジュール]から表示される白紙部分に以下を記述し、そのウィンドウを閉じます。 ------- Sub Test() Dim i As Long, ad As Integer, r As Long Sheets(1) For i = 2 To Sheets(i). r = Sheets(1) If i = 2 Then ad = 0 Else ad = 2 '※ Cells(r, 1)(ad) '※ Next Sheets(1)toFit End Sub ※:シートごとの貼り付け領域間を1行開けます。2行開けたい場合は ad = 3。 ↓ 先頭(左端)に新しい白紙のシートを挿入します。 挿入したシートを表示した状態で―― [開発]タブの[マクロ]から上記マクロ(Test)を選択して[実行]します。 3人 がナイス!しています ThanksImg 質問者からのお礼コメント 出来ました! !こんなに簡単に出来るなんて感動です!本当にありがとうございました。説明もとても分かりやすかったです☆ お礼日時: 2018/9/25 21:29 その他の回答(2件) 90枚のシートが例えばA列からH列までの表で1行目は共通の項目名で2行目から下方にデータがあるとします。 まとめのシートでは例えばJ1セルは空白のセルでJ2セルから下方には90枚のシート名を並べます。K1セルには必ず0を入力してからK2セルには次の式を入力して下方にドラッグコピーします。 =IF(J2="", "", COUNTA(INDIRECT(J2&"! Excelのシートを1枚にまとめる方法について -Excelについて、日報のよ- その他（Microsoft Office） | 教えて!goo. A2:A1000"))+MAX(K$1:K1)) その後にA1セルからH1セルにはシート共通の項目名を並べます。 A2セルには次の式を入力してH2セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。 =IF(ROW(A1)>MAX($K:$K), "", INDEX(INDIRECT(INDEX($J:$J, MATCH(ROW(A1)-0.