000000 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

Excelとか・・・

Excelとか・・・

【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! --/--
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x

PR

Free Space

にほんブログ村 その他生活ブログ 日課・生活習慣へ にほんブログ村 家族ブログ 家族情報へ にほんブログ村 その他生活ブログ 買い物・お使いへ

Profile

tuna725

tuna725

Archives

2024/05
2024/04
2024/03
2024/02/15
XML
カテゴリ: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 As String 

 Dim FirstRng As String 

 Dim 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:="<>"



 





[引用元]
​​​Excelのこととか色々​​​
​​​※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。​





​​​​
​​​​​​​​​​​​





お気に入りの記事を「いいね!」で応援しよう

Last updated  2024/02/15 03:29:37 PM
コメント(0) | コメントを書く



© Rakuten Group, Inc.