【Excel】エクセルで数値が範囲内にあるか（一定の範囲内：値が入っていたら〇：もしこの中にあれば抽出・表示）で処理する方法

Sub CheckNumberInRangeAndDisplay()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim hasNumber As Boolean
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set rng = ws1.Range("B2:D8")
    
    hasNumber = False
    For Each cell In rng
        If Not IsEmpty(cell) Then
            If IsNumeric(cell.Value) Then
                hasNumber = True
                Exit For
            End If
        End If
    Next cell
    
    If hasNumber Then
        ws2.Range("A1").Value = "〇"
    Else
        ws2.Range("A1").Value = "×"
    End If
End Sub

エクセルで指定の数値範囲内のそのセルの値が入っているかどうか判定し、あれば〇と隣の列に表示する方法【A列の数値が10~20に入っているか、隣に判定結果を表示】

指定した数値の範囲内にセルの値が収まっているかを判定し、条件を満たす場合は隣の列に〇を表示する方法です。

ここでは、A列の数値が10~20に入っているか、隣に判定結果を表示する処理をしてみます。

IF関数と論理演算子を組み合わせることで対応できます！

B列のセルに以下の数式を入力しましょう。

エンターで処理確定させます。先頭のセルの右下にカーソルを合わせると出てくる十字（フィルハンドル）を下にドラッグし引っ張る（オートフィル）ことで一括処理できました。

数式の説明

AND(A1>=10,A1<=20) : A1セルの値が10以上かつ20以下の場合にTRUEを返す

論理式 – IF(AND(A1>=10,A1<=20),”〇”,””) :

AND関数の結果がTRUE（条件を満たす）なら〇を表示し、それ以外なら空白を表示

VBA（マクロ）の場合

同様の処理をVBAマクロで実装する方法を見てみましょう。

Sub CheckRangeAndDisplayNext()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To lastRow
        If ws.Cells(i, 1).Value >= 10 And ws.Cells(i, 1).Value <= 20 Then
            ws.Cells(i, 2).Value = "〇"
        Else
            ws.Cells(i, 2).Value = "×"
        End If
    Next i
End Sub

まとめ　エクセルで数値が範囲内にあるか（値が入っていたら〇：もしこの中にあれば抽出・表示）で処理する方法

ここでは、エクセルで数値が範囲内にあるか（一定の範囲内：値が入っていたら〇：もしこの中にあれば抽出・表示）で処理する方法について確認しました。

エクセルの扱いになれ、さらに快適な生活を送っていきましょう。