Excelで横方向にフィルターをかけたい
![](http://cdn2.aprico-media.com/production/imgs/images/000/102/175/original.png?1695899267)
Microsoft Excelで横方向にフィルターをかけたいと思ったことはありませんか?シート内の表に対して横方向にフィルターをかけたくても、基本的に横方向に対してフィルターをかけることはできませんよね。
そこで、代替手段を用いるかマクロを使用してフィルターをかけてみましょう。この記事では、Excelで横方向にフィルターをかける方法をご紹介していきます。
Excelで横方向にフィルターをかける方法
![フィルターをかけたいリストを範囲選択してコピー](http://cdn2.aprico-media.com/production/imgs/images/000/102/167/original.jpg?1695898318)
![貼り付けたい場所で右クリックして、メニューの「形式を選択して貼り付け」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/102/168/original.jpg?1695898385)
![「行/列の入れ替え」のチェックボックスをオンにして「OK」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/102/170/original.jpg?1695898584)
![行と列のデータを入れ替えたリストを貼り付けることができた](http://cdn2.aprico-media.com/production/imgs/images/000/102/171/original.jpg?1695898637)
![フィルターをかけたいシート名を右クリックして、メニューから「コードの表示」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/102/173/original.jpg?1695899037)
![コード入力ウィンドウ](http://cdn2.aprico-media.com/production/imgs/images/000/102/174/original.jpg?1695899105)
Private Sub Worksheet_Change(ByVal Target As Range)
‘Updateby Extendoffice
Dim cl As Range
Range("a2:k2").SpecialCells(xlCellTypeBlanks).Select
For Each cl In Selection
r = cl.Column
Columns(r).EntireColumn.Hidden = True
Next
End Sub
このマクロは、「リストの中に空白セルがある場合に、該当列を非表示にする」といったマクロになります。このような形で、使用したいフィルターのマクロを組むことで横方向にフィルターを適用することができますよ。