excel 行数の異なる複数シート（10シート）を1つにまとめたい

excel 同一ブック内の行数の異なる10シートの表を1シートにまとめたい

webでシートが2枚の場合の関数計算式を見つけ、入れてみたところ、
シート2までは正しく反映されますが、シート3以降を加えた場合の計算式が
わかりません。
どなたかご教授いただけませんｄねしょうか。

2シート目までの計算式は下記のとおりです。(Sheet3以降も転記出来るようにしたい）

=IF(ROW()>COUNTA(Sheet1!$A:$A),INDEX(Sheet2!A:A,ROW()-COUNTA(Sheet1!$A:$A)+1),Sheet1!A2)

imihito

2018/08/06 03:44

タグと質問内容が合っていません。欲しい回答に合わせて修正してください。

s_george

2018/08/07 05:56

VBAは使っちゃだめなんですか？

行動規範の内容に同意します

回答2件

以下のコードで簡単にできそうです。

VBA
1Option Explicit
2
3Sub Matome10Sheets()
4'行数のことなるｎ個のシートのデータを１個のシートにまとめる
5'転記元のシートの列の数は、問わない
6
7  'for each用です
8  Dim mySheet As Worksheet
9
10  '転記先となる　”まとめシート”　があらかじめ作ってあるとして。
11  Dim MatomeSheet As Worksheet
12  Set MatomeSheet = ThisWorkbook.Worksheets("まとめシート")
13
14  Dim r As Long '転記先の、その時点の空白行の先頭の行番号
15  r = 1
16
17  For Each mySheet In ThisWorkbook.Worksheets
18      '使用されているデータレンジをまるっとコピーし、まとめシートの最初の空白先頭セルに転記する
19      mySheet.UsedRange.Copy Destination:=MatomeSheet.Cells(r, 1)
20      '転記が済んだあと、その時点の空白行の先頭の行番号を得る
21      r = MatomeSheet.UsedRange.Rows.Count + 1
22  Next mySheet
23
24End Sub
25
26

投稿2020/02/19 02:22

AkiSaito

総合スコア110

EXCEL関数
1=IF(ROW()>COUNTA(Sheet1!$A:$A),IF(ROW()>COUNTA(Sheet1!$A:$A)+COUNTA(Sheet2!$A:$A)-1,INDEX(Sheet3!A:A,ROW()-COUNTA(Sheet1!$A:$A)-COUNTA(Sheet2!$A:$A)+2),INDEX(Sheet2!A:A,ROW()-COUNTA(Sheet1!$A:$A)+1)),Sheet1!A1)

とりあえず、シート３枚目まで頑張ってみました。
シート１０枚となると、さらに加速度的に記述が増えますので現実的ではありません。

投稿2018/08/08 03:03