Excelとか・・・

AutoFilter が A列から設置してある場合

​Sub AutoFilter固定列_空白セルで絞込み()​

​​　Dim c As Long​

　c = Selection.Column

　Range("A1").AutoFilter Field:=c, Criteria1:="="

​End Sub​
 
 
 

空白セル以外で絞り込む場合

Range("A1").AutoFilter Field:=c, Criteria1:="<>"
 
 

==========
 

 
どんな表にも適用する場合

​Sub AutoFilter空白セル選択()​

​​　Dim AFAdrss As String　​​

　Dim FirstC As String　

　Dim CrntField As String

　Dim c As String　

　Dim FirstRng As String　

　Dim p As Variant　

​​　If ActiveSheet.AutoFilterMode = False Then​​

　　End

　​End If​

​　With ActiveSheet.AutoFilter.Range​

　　FirstC = .Column　

　　AFAdrss = .Address　

　​End With​

　c = Selection.Column - FirstC + 1　

　p = Split(AFAdrss, ":")　

　FirstRng = p(0)

　Range(FirstRng).AutoFilter Field:=c, Criteria1:="="

​End Sub
​

空白セル以外で絞り込む場合　
Range(FirstRng).AutoFilter Field:=c, Criteria1:="<>"

		​​​​