空白セルを飛ばして転記したい

質問

こんばんは。
またもやexcelで悩んでおります。どうぞご教授ください。
下のようなデータがあります。

　　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　　Ｅ　　　Ｆ　　　Ｇ
１　山岡　　　　　山田　　丸山　　山岡　　山田　　丸山
２　　　　　　平尾　　　　　南田　　平尾　　南田　　　　　　　　　
３
・
・

Ａ列からＤ列まで名前のデータがあり、空白のセルもあります。
Ｅ列からＧ列には、各行のＡ列からＤ列の名前を、空白セルを飛ばして表記したいのです。（詰めて表記したいです）
名前は各行とも０から３つまでです。

前回同様（QNo.4073079）行き詰ってしまいました。
よろしくお願いいたします。

回答No.5

maron--5 · ベストアンサー

E1=IF(COLUMN(A1)>COUNTA($A1:$D1),"",INDEX($A1:$D1,SMALL(INDEX(SUBSTITUTE(($A1:$D1<>"")*1,0,10^5)*COLUMN($A1:$D1),),COLUMN(A1))))
★右と下にコピー

お礼

またもやご指導いただきましてありがとうございました。
数式は理解できませんが、完璧に動きました！
すごいです。ありがとうございました！！

回答No.4

keirika

E1に=IF(A1<>"",A1,IF(B1<>"",B1,IF(C1<>"",C1,IF(D1<>"",D1,""))))

F1に=IF(E1<>"",IF(AND(B1<>"",B1<>E1),B1,IF(AND(C1<>"",C1<>E1),C1,IF(AND(D1<>"",D1<>E1),D1,""))),"")

G1に==IF(F1<>"",IF(AND(C1<>"",C1<>E1,C1<>F1),C1,IF(AND(D1<>"",D1<>E1,D1<>F1),D1,"")),"")

でどうでしょうか。

お礼

マナー違反をいたしまして申し訳ございませんでした。

ANo.3のkuma56さんのお礼にも書かせていただきましたが、実はネストの問題が発生いたしまして、うまくいきませんでした。

言葉足らずの質問にお答えいただきましてありがとうございました。

回答No.3

kuma56

方法はいくつかあると思うけど、まずどういう表なのか考えてみましょう。
Ａ～Ｄ列はデータが有ったり無かったり。
Ｅ列には、Ａ列，Ｂ列，Ｃ列，Ｄ列
Ｆ列には、Ｂ列，Ｃ列，Ｄ列
Ｇ列には、Ｃ列，Ｄ列
がそれぞれ入る可能性が有る。
Ｅ列は、Ａ列が空でなければＡ列、違えばＢ列が空でなければＢ列，違えばＣ列が空でなければＣ列，違えばＤ列が空でなければＤ列、違えば空
式にすれば　E1 =IF(A1<>"",+A1,IF(B1<>"",B1,IF(C1<>"",+C1,IF(D1<>"",+D1,""))))
Ｆ列は、Ａ列は入らず、Ａ:Ｂ列のデータ数が２ならＢ列，Ａ:Ｂ列のデータ数が１でＣ列が空でなければＣ列，Ａ:Ｃ列のデータ数が２でＤ列が空でなければＤ列、違えば空
式にすれば　
F1 =IF(COUNTA(A1:B1)=2,+B1,IF(AND(COUNTA(A1:B1)=1,C1<>""),+C1,IF(AND(COUNTA(A1:C1)=1,D1<>""),+D1,"")))
Ｇ列は、Ａ:Ｂ列は入らず、Ａ:Ｃ列のデータ数が３ならＣ列，Ａ:Ｃ列のデータ数が２でＤ列が空でなければＤ列，違えば空
式にすれば　
G1 =IF(COUNTA(A1:C1)=3,+C1,IF(AND(COUNTA(A1:C1)=2,D1<>""),+D1,""))
これじゃダメかな？？

あと、関連の過去ログを書くのなら、リンクにして張って欲しい。
解答側から質問者名で過去ログの健作は難しいので、探すのが大変なんだよね。

お礼

無礼にも過去ログを載せてしまい、申し訳ございませんでした。
確かに、検索するのは大変な作業ですね・・。また、言葉足らずの質問にお答えいただきましてありがとうございました。

この質問ではＡ列からＤ列をデータ列としておりますが、実はＡ列からＲ行までの１８行に名前のデータが入っております。そしてＡＡ列からＡＱ列までに、０人から１７人の名前が空白を飛ばして表記したいのです。（０人だとすべて空白ですが）
残念ながら、お教えいただいた関数ではネストに引っかかってしまい処理できませんでした。

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

回答No.2

googoo-takokaina

１．A列～D列をE列～F列へコピーします。
２．E列～F列を選択します。
３．メニューの「編集」→「ジャンプ」を選びます。（ctrl + gでも可）
４．「セル選択」をクリックします。
５．「空白セル」にチェックを入れて「OK」をクリックします。
６．E列～F列の空白セルが選択されるのでそのまま右クリックし、「削除」を選択します。
７．「左方向にシフト」にチェックを入れて「OK」をクリックすれば完了です。

お礼

読みづらい質問の中、ご返答いただきましてありがとうございました。
言葉足らずで申し訳ございません。関数で処理できたらいいな・・と思っております。

回答No.1

noname#77348

関数の質問なのか、VBAの質問なのか補足が必要です。

前の質問を確認しろ、などと回答者に要求してはいけません。

以上

補足

マナー違反だとは知らず、申し訳ございませんでした。
前回の質問は解決済みで、皆様に確認していただくつもりはなく、あまりにもあざやかに解決していただけたのでつい書いてしまいました。

質問の内容は関数です。関数で処理できたらなあ・・と思っております。
「名前は各行とも０から３つまでです」というのは、Ａ列からＤ列までの名前のデータがすべて空白の行のあれば、３つのセルまで入力されている行もあるという意味です。

まったくの言葉足らず、そしてマナー違反をして申し訳ございませんでした。