任意の1分平均から、それに対し-10%(又は+10%)の1分平均が現れ

質問

任意の1分平均から、それに対し-10%(又は+10%)の1分平均が現れるまでの時間
を求めるために下記E列のような処理を考えていますが、VLOOKUPではIFのように条件式ではなく検索値のため思うようにいきません。

　　　　　(A列)　(B列)　　(C列) 　(D列) 　(E列)
( 1行)　00:00　ｏ　　　B1 *1.1　00:00 　=VLOOKUP(>=C1,B2:D1440,3)
( 2行)　00:01　ｏ　　　B2 *1.1　00:01 　=VLOOKUP(>=C1,B3:D1441,3)
( 3行)　00:02　ｏ　　　B3 *1.1　00:02 　=VLOOKUP(>=C1,B4:D1442,3)
　　　　　.　　　　.　　　　.　　　　　.　　　　　.
　　　　　.　　　　.　　　　.　　　　　.　　　　　.
　　　　　.　　　　.　　　　.　　　　　.　　　　　.
(1440行)　23:59　ｏ　　　B1440*1.1　23:59 　

B列には1分平均値のデータがあります。
C列ではB列を+10%した値
C列の値を元に条件+10％が現れる時間をどうにかで出せないかと考えています。

何方かいい方法ありませんでしょうか？
ご教授お願いいたします。

回答No.2

keithin · ベストアンサー

ケース１：Ｂ列が単調増加の場合
=INDEX(A:A,COUNTIF(B:B,"<"&B1*1.1)+1)
または
=IF(COUNTIF(B:B,">="&(B1*1.1)),INDEX(A:A,COUNTIF(B:B,"<"&B1*1.1)+1),"")

ケース２：Ｂ列がランダムの場合

元のご相談：
＞＋１０％が現れる時刻

→訂正１
　＋１０％のジャスト値が現れる時刻
（そんな都合の良い値が存在する保証があるのか？）
　=INDEX(A:A,MATCH(B1*1.1,B:B,0))　

→訂正２
　＋１０％以上の値が現れる時刻
　＝＞最初に出てきた1.1倍以上の十分大きな数値がヒットする

→訂正３
　＋１０％以上で最も近い値が現れる時刻
　=IF(COUNTIF(B:B,">="&B1*1.1),INDEX(A:A,MATCH(B1*1.1+MIN(IF($B$1:$B$1440>=B1*1.1,$B$1:$B$1440-B1*1.1)),B:B,0)))
　をコントロールキーとシフトキーを押しながらEnterで入力する
　もっともこれなら全体をＢ列昇順で並べ替え，ケース１に持って行った方が遙かに簡単です。
　計算後コピーして値のみ貼り付けて値化し，Ａ列昇順で再度並べ替えて元の順に戻します。

-10%側は応用してみてください。

お礼

ご回答ありがとうございます。
データは必ずしも単調増加ではないので訂正3のように処理してみたいと思います。

回答No.1

nattocurry

関数での処理は思いつかなかったので、マクロで作ってみました。

Sub test()
Dim r, i
For r = 1 To 1440 - 1
For i = r + 1 To 1440
If Cells(i, 2).Value > Cells(r, 3).Value Then
Cells(r, 5).Value = Cells(i, 1).Value - Cells(r, 1).Value
Exit For
End If
Next i
If i > 31 Then
Cells(r, 5).Value = "xxx"
End If
Next r
End Sub

こんな感じでどうでしょう？