エクセル 三連続になってる箇所の抽出方法

質問

お知恵を拝借させてください。

0.0から10000.0まで数字が羅列されてるデータがあります。

0から降順には並んでますが、数字が抜けていたりします。

0.1から0.6感覚で３連続以上してる箇所を抽出したいです。
どのように式をたてれば抽出できるでしょうか

例えば0.9 1.9 2.1 2.5 3.1 3.9 4.9
と並んでいるのであれば
1.9 2.1 2.5　の3つのデータのセルが色が変わるなどでわかるようにしたいです。
0.9と1.9は1.0離れているので対象からは外れるようなイメージです。

方法はどんな方法でもかまいません。
何かいいアイディアはないでしょうか？

回答No.2

MT765 · ベストアンサー

条件式だとちょっとわからなかったのでVBAで。
考え方としては

3番目のデータから開始して
一つ前のデータとの差が0.6以下　かつ　一つ前のデータと二つ前のデータの差が0.6以下の場合
3番目から2つ前のセルまで色を塗ります。

これを繰り返せば良いような気がします。

Sub Mymacro() 'データがA1からA10に入っている場合のマクロ
Dim i As Integer, j As Integer
j = 1 '列番号
For i = 3 To 10 '3行目のデータから10行目のデータまで
If Cells(i, j).Value - Cells(i - 1, j).Value <= 0.6 And Cells(i - 1, j).Value - Cells(i - 2, j).Value <= 0.6 Then '3連続0.6以下の場合
Cells(i - 2, j).Interior.ColorIndex = 22 '2つ前のセルをピンクに
Cells(i - 1, j).Interior.ColorIndex = 22 '１つ前のセルをピンクに
Cells(i, j).Interior.ColorIndex = 22 '現在のセルをピンクに
End If
Next i
End Sub

セルの色をリセットしたりマクロボタンや自動実行については別途入れないと実用上厳しいかと思います。
（改行がわかりにくかったらすみません）

お礼

ありがとうございました

回答No.4

imogasi

例データ　B2:C１１
B列　C列＝前行セルとの差
0.1 0.1
1.9 1.8
2.1 0.2
2.5 0.4
3.1 0.6
3.9 0.8
4.9 1
5.2 0.3
5.6 0.4
6.1 0.5
ーー
B列について
標準モジュールに
Sub test01()
lr = Range("B100000").End(xlUp).Row
MsgBox lr
For i = 1 To lr - 3
If Cells(i + 1, "b") - Cells(i, "B") <= 0.6 And Cells(i + 2, "B") - Cells(i + 1, "B") <= 0.6 And Cells(i + 3, "B") - Cells(i + 2, "B") <= 6 Then
Range(Cells(i + 1, "B"), Cells(i + 3, "B")).Interior.ColorIndex = 6
End If
Next i
End Sub
ーー
結果
B列　４，５，６と９，１０，１１のセルに黄色
ーー
カン違いしてないことを祈る。テストデータ数も少ないので。

お礼

ありがとうございました

回答No.3

SI299792

画像の様にA1,A2 を空白にして、A3から始めて下さい。
A3以下、適当な範囲を選択。

４行目を選択
条件付き書式、新しいルール、
数式を使用して、書式設定するセルを決定
=AND(A2-A1<0.6,A3-A2<0.6,A3<>"")+AND(A3-A2<0.6,A4-A3<0.6,A4<>"")+AND(A4-A3<0.6,A5-A4<0.6,A5<>"")
書式。塗りつぶし、好きな色、OK。OK。

A1 A2 を開けたくない、A1から始めたい、タイトルを入れたい等の場合、補足に書いて下さい。

回答No.1

aokii

2つの連続したセルで、その差が0.6以下なら1それ以外は0にしてはいかがでしょう。
例えば、A列のデータの場合、B4セルに、以下の式を入れて下へドラッグコピー。
=IF(AND(IF(AND(ABS(A4-A3)<=0.6,ABS(A4-A3)>=0.1),1,0)=1,IF(AND(ABS(A3-A2)<=0.6,ABS(A3-A2)>=0.1),1,0)=1,IF(AND(ABS(A2-A1)<=0.6,ABS(A2-A1)>=0.1),1,0)=1),1,0)

お礼

ありがとうございました