エクセルで最終値の検索

質問

宜しくお願いします。

エクセルで下記のような表を作っています。
　　Ａ　　　Ｂ　　 Ｃ　　　Ｄ　　　 Ｅ　　 　Ｆ　　 Ｇ　 　 Ｈ
　　状況
　　　　　 3月　　4月　　5月　　6月　　7月　　8月　　9月
１　　　　 20%　　50%　　完成
２　　　 　　　 　 10%　　50%　　 ボツ
３　　　 　　　 　 15%　　　　　 　50%　　 　70%

表より、
１番の最終の値「完成」
２番の最終の値「ボツ」
３番の最終の値「70%」
を、Ａ列の「状況」列に常に最終値を検索して
表示したいのですが、
どうすればよういですか？

回答No.1

Caryo_t · ベストアンサー

原始的な方法では（出したいセルがA3にあるとした場合）、
=IF(H3<>"",H3,IF(G3<>"",G3,IF(F3<>"",F3,IF(E3<>"",E3,IF(D3<>"",D3,IF(C3<>"",C3,IF(B3<>"",B3,"")))))))
として、9月のデータから順に「有るか無いか」を調べていけば
お望みの結果が出ます。

お礼

ありがとうございます。

原始的なおかげで計算式が理解できました（＾＾）
やっぱりＩＦ関数が間違いないですね。

回答No.5

mu2011

NO2です。
>”＃ＶＡＬＵＥ！”の文字の消す方法を教えてもらえないですか？
⇒次の方法で如何でしょうか。
=IF(COUNTA($B3:$H3),INDEX($B3:$H3,MAX(IF(COUNTIF($B3:$H3,"*"),MATCH("",$B3:$H3,-1)),IF(COUNT($B3:$H3),MATCH(MAX($B3:$H3)+1,$B3:$H3,1)))),"")

お礼

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

問題解決です。
助かりました。

回答No.4

DIooggooID

シートの構成が、
　１行目に　"状況"　
　２行目に 3月　　4月　　5月　　6月　　7月　　8月　　9月
　３行目のＢ列以降から実データ
という構成になっていると仮定しています。

以下のようなマクロを実行すれば、各行のＡ３、Ａ４，Ａ５，・・・セルに
各行の最右の内容が設定されます。

Sub Macro()
Range("a3").Select
spRow = 3
For i = 1 To 10
ActiveCell.Offset(0, 100).Select
Selection.End(xlToLeft).Select
Selection.Copy
Range("A" & spRow).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
spRow = spRow + 1
Next
Application.CutCopyMode = False
End Sub

お礼

ありがとうございます。

さすがのマクロでセルもスッキリです！
関数にするか、マクロにするか決めて行きたいと思います。

皆様ありがとうございました！

回答No.3

mshr1962

A:Hのセルの書式設定を
[=1]"完成";[=0]"ボツ";0%
としているなら
A3=INDEX($B3:$H3,1,MATCH(MAX($B3:$H3)+1,$B3:$H3,1))

※完成にしたい時は100%を、ボツにしたいときは0%を入力してください。

お礼

ありがとうございます。

書式設定をするとスマートな式でいけるのですね。
今回はランダムな数字なので少し難しいみたいです。
こういうやり方もあるのかと驚きです。
勉強になりました！

回答No.2

mu2011

一例です。
=INDEX($B3:$H3,MAX(IF(COUNTIF($B3:$H3,"*"),MATCH("",$B3:$H3,-1)),IF(COUNT($B3:$H3),MATCH(MAX($B3:$H3)+1,$B3:$H3,1))))

お礼

ありがとうございます！

おぉ！なんか複雑！
試しました。
行によって値の入らないのもあるのですが、
”＃ＶＡＬＵＥ！”の文字の消す方法を教えてもらえないですか？