連日となっているセルを抽出するには？

質問

翌日の日付を抽出する方法があれば、教えていただけますでしょうか。

A列に、数字3ケタが並んでいます。
この数字が同一の行＝（A1～C3）のデータの中から
C列とB列の日付が翌日になっている行を探し出したいです。

下記の場合は、
C1（13/12/31）とB2（2014/1/1）が連日、翌日となっている。
C2（2014/12/31）とB3（2015/1/1）が連日、翌日となっている。
上記の場合、連日となっている「4つのセル」を全て絞り出したいです。

　　　A 　B 　　C
1　　123 　2013/1/1　2013/12/31
2　　123 　2014/1/1　2014/12/31
3　　123 　2015/1/1　2015/12/31
―－－－－－－－－－－－－－－－－－
4　　456 　2013/1/1　2013/12/31
5　　456 　2013/1/1　2013/12/31

A列の
数字は2700種類程あり、エクセルデータは1万行程度となります。
マクロや関数など、ヒントだけでも知りたいので、
分かる方教えていただけると嬉しいです。

回答No.4

MarcoRossiItaly · ベストアンサー

No.1 さんのご回答とだいたい一緒ですが、添付図では次式を入力しています。フィルタで絞り込んで必要な行だけ抽出してください。質疑応答がある程度決着したら、ご質問を締め切る処理をしてください。

D2　=countifs(a:a,a2,c:c,b2-1)
E2　=countifs(a:a,a2,b:b,c2+1)
F2　=sum(d2:e2)>0
G2　=if(f2,a2,"-")

お礼

ありがとうございます！
これで、ほぼ解決しましたので
クローズさせて頂きます。

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

回答No.3

KURUMITO

すべて絞り出すという意味が具体的にはどのようにしたいのかがよくわかりませんが例えば次の式をD1セルに入力してE1セルまで横にドラッグコピーしたのちに下方にもドラッグコピーすればよいでしょう。
データはシリアル値で表示されますのでセルの表示形式で日付にすればよいでしょう。該当する日付が表示されることになります。

=IF(A1="","",IF(COLUMN(A1)=1,IF(COUNTIF(INDEX($C:$C,MATCH($A1,$A:$A,0)):INDEX($C:$C,MATCH($A1,$A:$A,0)+COUNTIF($A:$A,$A1)-1),$B1-1),$B1,""),IF(COUNTIF(INDEX($B:$B,MATCH($A1,$A:$A,0)):INDEX($B:$B,MATCH($A1,$A:$A,0)+COUNTIF($A:$A,$A1)-1),$C1+1),$C1,"")))

該当するセル番地を表示させるのでしたらD1セルには次の式を入力します。

=IF(A1="","",IF(COLUMN(A1)=1,IF(COUNTIF(INDEX($C:$C,MATCH($A1,$A:$A,0)):INDEX($C:$C,MATCH($A1,$A:$A,0)+COUNTIF($A:$A,$A1)-1),$B1-1),CELL("address",$B1),""),IF(COUNTIF(INDEX($B:$B,MATCH($A1,$A:$A,0)):INDEX($B:$B,MATCH($A1,$A:$A,0)+COUNTIF($A:$A,$A1)-1),$C1+1),CELL("address",$C1),"")))

お礼

＞>KURUMITO さん

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

ちなみに分かれば教えて頂ければ幸いです。。
この式を入力後、D列に対象の日付が反映されます。
空白セル以外の行を抽出したいのです。
さらに、抽出する際、「A列の対象の数字」が知りたいです。

　A 　　　B 　　　　C 　　　　　　　　D
1 123 2013/1/1　2013/12/31 2013/12/31
2 123 2014/1/1　2014/12/31 2014/12/31
3 123 2015/1/1　2015/12/31

上記だとD列が反映されているのは「A1-A3」の「123」なので
「123」が抽出される式が知りたい・・です。

何度も次から次へと申し訳ないです。

回答No.2

tom04

こんばんは！
VBAになってしまいますが、一例です。

元データはSheet1の1行目からあり、同SheetのE列に表示するようにしてみました。
Sheet2を作業用のSheetとして使用していますので、Sheet2は全く使用していないSheetにしておいてください。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, k As Long, endRow As Long, cnt As Long, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1")
Set wS2 = Worksheets("Sheet2")
Application.ScreenUpdating = False
With wS1
.Range("D:D").ClearContents
.Rows(1).Insert
.Range("A1") = "ダミー"
i = .Cells(Rows.Count, 1).End(xlUp).Row
Range(.Cells(1, 1), .Cells(i, 1)).AdvancedFilter xlFilterInPlace, unique:=True
endRow = .Cells(Rows.Count, 1).End(xlUp).Row
Range(.Cells(2, 1), .Cells(endRow, 1)).Copy wS2.Range("A1")
.Range("A1").AutoFilter
.Range("A1").AutoFilter

For k = 1 To wS2.Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1").AutoFilter field:=1, Criteria1:=wS2.Cells(k, 1)
endRow = .Cells(Rows.Count, 1).End(xlUp).Row
Range(.Cells(2, 2), .Cells(endRow, 3)).Copy wS2.Cells(1, 2)
For cnt = 1 To wS2.Cells(Rows.Count, 2).End(xlUp).Row - 1
If wS2.Cells(cnt, 3) + 1 = wS2.Cells(cnt + 1, 2) Then
With wS2.Cells(Rows.Count, "D").End(xlUp).Offset(1)
.Value = wS2.Cells(cnt, 3)
.Offset(1) = wS2.Cells(cnt + 1, 2)
End With
End If
Next cnt
wS2.Range("B:C").Clear
Next k
.AutoFilterMode = False
wS2.Range("D:D").Copy .Range("E1")
.Range("E:E").NumberFormatLocal = "yyyy/m/d"
.Rows(1).Delete
End With
wS2.Cells.Clear
Application.ScreenUpdating = True
MsgBox "処理完了"
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

お礼

＞tom04 さん
VBAとやら、無知なので全くわかりませんが
早速試してみます！！
貴重なお時間ありがとうございました！

回答No.1

tsubuyuki

ごく一般的な関数と機能でやりたい、かつ作業列を作ってかまわない、
という条件に合致するのであれば、

ご提示の例であれば、Ｄ列に
　　Ｄ１セル　　　　式：=C1=B2-1
　　Ｄ２セル以降　　式：=OR(C2=B3-1,B2=C1+1)
とし、フィルタ機能でＤ列から「TRUE」だけを抽出してやればＯＫです。

もっと綺麗にやる方法もあるでしょうが、とりあえず参考まで。

お礼

>tom04 さん
マクロとか使ったことないので
怪しいですが、まずはやってみます！！
ありがとうございます！

＞tsubuyukiさん
ご確認ありがとうございます。
出来るかどうか、一度試してみたいと思います！

よろしくお願いします。