エクセルでグループ分け。

Question

よろしくお願いします。
データー
　　　A　　　　　　B　　　　　C　　　　　D
１　１／１　　　　２０　　　１９　　　　５０
２　１／２　　　　６５　　　５５　　　　８９
３　１／３　　　　８８　　　８０　　　　８９
４　１／７　　　　２５　　　０２　　　　８０
５　１／８　　　　４４　　　１３　　　　９９
６　１／１０　　　９３　　　２３　　　　９５
７　１／１４　　　１２　　　－２　　　　４６
８　１／１５　　　２３　　　１１　　　　４５

　というデーターがあります。
このデーターのB列の数字を基準にし、C列の数字とD列の数字の二つを比べ、C列の数字と近い場合とD列の数字と近い場合のデーターを抜き出せるようにしたいと思います。
　B列の数字がC列の数字と近い場合の結果
　　　A　　　　　　B　　　　　C　　　　　D
１　１／１　　　　２０　　　１９　　　　５０
２　１／７　　　　２５　　　０２　　　　８０
３　１／８　　　　４４　　　１３　　　　９９
４　１／１４　　　１２　　　－２　　　　４６
５　１／１５　　　２３　　　１１　　　　４５

　B列の数字がＤ列の数字と近い場合の結果
１　１／２　　　　６５　　　５５　　　　６８
２　１／３　　　　８８　　　８０　　　　８９
３　１／１０　　　９３　　　２３　　　　９５


　できる方、よろしくお願いします。

imogasi · Accepted Answer

#4です。
＞基本的にはANo.2と同じ解決方法ですね
違います。ABSの利用が売りのつもりです。

edomin2004 · Answer

回答ではありません。補足してください。

１／１６　７１　５１　９１

というデータがあった場合は、どうします？
それとも、こういうデータは無い？
（両方とも、基準から同じだけ離れている場合。）

mitarashi · Answer

1行目に適当な見出しを加えて、E列に下記の式を入れ、オートフィルターで、TRUEかFALSEかで分ければいかがでしょう。A No.1の方の言われる通り、等号をつけるかどうかはご自分で変更下さい。
E2の式の例：=IF(ABS(B2-C2)<=ABS(B2-D2),TRUE,FALSE)
...............A....B....C....D...............E
..1.........日付....B....C....D.........判定
..2.......1月1日..20...19..50.........TRUE
..3......1月2日..65..55..89.........TRUE
..4......1月3日..88..80..89.......FALSE

keirika · Answer

元データをSheet1、振り分け先をSheet2とSheet3にします。

    Dim j As Integer
    Dim k As Integer
    
    Set Data = Sheets("Sheet1").Range("a1").CurrentRegion
    
    j = 1
    k = 1
    
    With Data
        For i = 1 To Data.Rows.Count
            If Abs(.Cells(i, 2) - .Cells(i, 3)) > _
               Abs(.Cells(i, 2) - .Cells(i, 4)) Then
                .Rows(i).Copy Destination:=Sheets("Sheet2").Cells(j, 1)
                j = j + 1
            Else
                .Rows(i).Copy Destination:=Sheets("Sheet3").Cells(k, 1)
                k = k + 1
            End If
         Next
    End With
    
    Set Data = Nothing
    
    End Sub

以上です

imogasi · Answer

例データ　質問例どおり
ABCDEFG
11月1日20195019A
21月2日65 55 8955A
31月3日88 80 8989B
41月7日25 2 802A
51月8日44 13 9913A
61月10日93 23 9595B
71月14日12 -2 46-2A
81月15日23 11 4511A
G列G2は　=IF(ABS(D2-C2)<ABS(E2-C2),"A","B")
（参考：F列F2は=IF(ABS(D2-C2)<ABS(E2-C2),D2,E2)）
このG列でソートし、Aの行だけ他シートにコピペ。
ーー
関数でも、抜き出し等できるが、（過去質問をimogasi方式でGoogleで照会すると、１条件抜き出しの質問回答例が多数出てくる）今回はこの辺でとどめたら。

エクセルでグループ分け。

回答ではありません。

この回答への補足

1行目に適当な見出しを加えて、E列に下記の式を入れ、オートフィルターで、TRUEかFALSEかで分ければいかがでしょう。

元データをSheet1、振り分け先をSheet2とSheet3にします。

例データ 質問例どおり

#4です。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

例データ　質問例どおり