【Excel VBA】奇数/偶数を判定し抽出する方法！Mod演算子使用！

VBAで奇数/偶数を判定し抽出したいときはないでしょうか。

けど、そんな中で悩むことは、

ですよね。

今回はそんなお悩みを解決する

についてまとめます！

VBAで奇数/偶数を判定し抽出するイメージ

VBAで奇数/偶数を判定し抽出するイメージについて説明をします。

Excel側に表を作成します。

VBAを実行すると、Forループ処理で表のセルの値を取得し、
A列の番号を奇数

偶数別に

それぞれ抽出していきます。

それでは早速試してみましょう。

データを取得する表を準備する

Excel側に”Sheet1″シートを作成し、セルの値を取得する対象となる表を作成します。

奇数/偶数の判定を行う対象の列はA列となります。

奇数/偶数を判定し抽出するVBAで使用する機能

次に奇数/偶数を判定し抽出するVBAで使用する機能について説明をします。
今回メインで使用する機能は以下の通りです。

For…Next ステートメントの構文

For…Next ステートメントの構文は以下の通りです。

For…Next ステートメントの構文の指定項目は以下の通りです。

参考：https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/fornext-statement

Mod演算子

Mod演算子は割り算の余りを求める演算子となります。

Mod演算子の構文は以下の通りです。

Mod演算子の構文の指定項目は以下の通りです。

参考：https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/mod-operator

奇数/偶数の判定は「Mod 2」を指定し、2で割り余りが0なら偶数、その反対の偶数以外であれば奇数として判定しています。

VBAで奇数を判定し抽出する

まずはVBAで奇数を判定し抽出する方法について説明をします。

VBAコード

サンプルのVBAコードは以下の通りです。

Sub 奇数を判定し抽出する()
    Dim intLastRowNum As Integer
    Dim i As Integer
    
    '"Sheet1"シートを対象にします。
    With Sheets("Sheet1")
        '最終行数を取得します。
        intLastRowNum = .Cells(Rows.Count, 1).End(xlUp).Row

        For i = 2 To intLastRowNum
            
            '2の倍数（偶数）の以外（奇数）の時に出力します。
            If .Cells(i, 1).Value Mod 2 <> 0 Then
                Debug.Print .Cells(i, 1).Value & "|" & .Cells(i, 2).Value & "|" & .Cells(i, 3).Value
            End If
            
        Next i
        
    End With

End Sub

VBAの実装

VBAの実装方法については
VBAの実装手順
をご参照ください。

VBAを実行する

VBAを実行してみましょう。

イミディエイトウィンドウにA列の値が奇数のみの値が表示されましたね！

VBAの説明

VBAについて説明をします。

“Sheet1″シートを対象にします。

対象の表のA列最終行数を取得します。

For…Next ステートメントで2行目から最終行目まで繰り返し処理をおこないます。

2の倍数（偶数）の以外（奇数）の時に出力します。

タカヒロ

「Mod 2」とすると2で割れる場合は0となり、つまり偶数ということがわかります。奇数はその反対ですので、0でないものという条件にすることにより奇数だけを抽出することができます。

CellsオブジェクトのValueプロパティでセルの値を取得し、 “|”区切りで文字結合をして出力します。

VBAで偶数を判定し抽出する

次にVBAで偶数を判定し抽出する方法について説明をします。

VBAコード

サンプルのVBAコードは以下の通りです。

Sub 偶数を判定し抽出する()
    Dim intLastRowNum As Integer
    Dim i As Integer
    
    '"Sheet1"シートを対象にします。
    With Sheets("Sheet1")
        '最終行数を取得します。
        intLastRowNum = .Cells(Rows.Count, 1).End(xlUp).Row

        For i = 2 To intLastRowNum
            
            '2の倍数（偶数）の時に出力します。
            If .Cells(i, 1).Value Mod 2 = 0 Then
                Debug.Print .Cells(i, 1).Value & "|" & .Cells(i, 2).Value & "|" & .Cells(i, 3).Value
            End If
            
        Next i
        
    End With

End Sub

VBAを実行する

VBAを実行してみましょう。

イミディエイトウィンドウにA列の値が偶数のみの値が表示されましたね！

VBAの説明

VBAについて説明をします。

2の倍数（偶数）の時に出力します。

タカヒロ

「Mod 2」とすると2で割れる場合は0となり、つまり偶数ということがわかりそれをIF文の条件とすることで偶数の値のみを抽出することができます。

VBAの実装手順

実装手順は以下の通りです。

Excel側にVBAを実装していきます。

①Excelを新規に開き、「開発」タブをクリックし、「VisualBasic」をクリックします。
もしくはショートカットキー「Alt」＋「F11」でもOKです。

②標準モジュールを追加します。
左ペインのVBAProjectを右クリックし、「挿入」、「標準モジュール」を選択します。

③右ペインのウインドウに上記のVBAを入力します。

こちらで完了です。

VBAを実行する

では早速VBAの実行をしてみましょう。

①「開発」タブの「VBA」をクリックし実行したいマクロを選択し、「実行」をクリックします。

②処理がされたことが確認できれば完了です。

さいごに

いかがでしょうか。

今回は、

についてまとめました。

また、他にも便利な方法がありますので、よろしければご参照頂ければと思います。