ExcelマクロでJ列の空白セルを除外して絞り込む方法

ExcelでJ列に空白セルがある場合、そのセルを除外して絞り込みを行う方法を解説します。Excelマクロを使えば、簡単に指定した範囲内で空白セルを除外することができます。

1. Excelマクロを使用して空白セルを除外する方法
2. マクロの使い方
3. 他の列でも同様のフィルタをかける方法
4. 一括で複数の列にフィルタを適用する方法
まとめ

1. Excelマクロを使用して空白セルを除外する方法

Excelマクロで、J列の空白セルを除外して絞り込みを行う方法を以下に示します。このマクロを使用すると、空白のセルを含まない行だけを残して絞り込むことができます。

Sub FilterWithoutBlanks()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "J").End(xlUp).Row
    ActiveSheet.Range("J1:J" & lastRow).AutoFilter Field:=1, Criteria1:="<>"
End Sub

上記のマクロを使用することで、J列の空白セルを除外し、そのデータを絞り込むことができます。具体的には、AutoFilterを使用して、空白以外のセルをフィルタリングします。

2. マクロの使い方

このマクロを実行する手順は以下の通りです。

Excelで「Alt + F11」を押して、VBAエディタを開きます。
左側の「VBAProject」にある対象のシートを選択し、コードウィンドウに上記のコードを貼り付けます。
「F5」を押してマクロを実行すると、J列の空白セルが除外され、残りのデータが絞り込まれます。

3. 他の列でも同様のフィルタをかける方法

同様の方法で、J列以外の列に対しても空白セルを除外することができます。上記のコードを変更することで、他の列にフィルタをかけることが可能です。

Sub FilterWithoutBlanksForAnyColumn()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' 任意の列に変更
    ActiveSheet.Range("A1:A" & lastRow).AutoFilter Field:=1, Criteria1:="<>"
End Sub

このように、フィルタをかけたい列を指定するだけで、他の列にも適用できます。

4. 一括で複数の列にフィルタを適用する方法

複数の列に対してフィルタを一括で適用したい場合、以下のようにコードを変更して使用します。

Sub FilterMultipleColumns()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    ActiveSheet.Range("A1:B" & lastRow).AutoFilter Field:=1, Criteria1:="<>"
    ActiveSheet.Range("A1:B" & lastRow).AutoFilter Field:=2, Criteria1:="<>"
End Sub

このコードでは、A列とB列の空白セルを除外してフィルタを適用しています。必要に応じて範囲を変更することができます。