関数の質問

質問

エクセル2003を使用しています。

下記のシート１に不規則な空白行があり、それをシート２に空白行を詰めて

表示させたいのですがわかりません。

関数でよろしくおねがいいいたします。

シート1
A B C D E F G
1 1 1 1 1 1 1 1
2
3 2 2 2 2 2 2 2
4 3 3 3 3 3 3 3
5
6
7 4 4 4 4 4 4 4
8
9 5 5 5 5 5 5 5
10
11
12
13 6 6 6 6 6 6 6
14 7 7 7 7 7 7 7
15 8 8 8 8 8 8 8
16 9 9 9 9 9 9 9
17
18

シート2
A B C D E F G
1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3
4 4 4 4 4 4 4 4
5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6
7 7 7 7 7 7 7 7
8 8 8 8 8 8 8 8
9 9 9 9 9 9 9 9
10
11
12
13
14
15
16
17
18
・
・
・
・

回答No.2

kagakusuki · ベストアンサー

今仮に、Sheet3のA列を作業列として使用するものとします。

　まず、Sheet3のA1セルに次の関数を入力して下さい。

=IF(COUNTIF(Sheet1!$A1:$G1,"")=COLUMNS(Sheet1!$A:$G),"",ROW())

　次に、Sheet3のA1セルをコピーして、Sheet3のA2以下に貼り付けて下さい。

　次に、Sheet2のA1セルに次の関数を入力して下さい。

=IF(ISERROR(1/(INDEX(Sheet1!A:A,SMALL(Sheet3!$A:$A,ROWS($A$1:$A1)))<>"")),"",INDEX(Sheet1!A:A,SMALL(Sheet3!$A:$A,ROWS($A$1:$A1))))

　次に、Sheet2のA1セルをコピーして、Sheet2のB1～G1の範囲に貼り付けて下さい。
　次に、Sheet2のA1～G1の範囲をコピーして、同じ列の2行目以下に貼り付けて下さい。

　以上です。

お礼

作業列を作成することによって理解しやすかったです。

ありがとうございました。

回答No.1

popuplt

sheet2のA1に
=IF(ROW()<=COUNT(Sheet1!A:A),INDEX(Sheet1!A:A,SMALL(IF(Sheet1!$A:$A<>"",ROW(Sheet1!$A:$A),""),ROW())),"")

Shift+Ctrl+Enter(配列数式)
下へコピー

お礼

回答ありがとうございました。