Excel総合相談所 153

97 ：名無しさん＠そうだ選挙にいこう：2023/03/16(木) 18:51:27.59 .net

>>93
excelでAからGまでフィルタ設定されてて
絞り込みされてる状態でCだけ絞り込み解除をVBAでしたい

以下のようなVBAコードを使用することで、ExcelのAからGまでフィルタ設定されている状態で、Cだけフィルタ解除することができます。

vb
Copy code
Sub RemoveCFilter()
Dim ws As Worksheet
Set ws = ActiveSheet ' 現在アクティブなシートを取得

If ws.FilterMode Then ' シートがフィルタ設定されているかを確認
With ws.Range("A1:G1") ' フィルタ範囲を指定
.AutoFilter Field:=3, Criteria1:="<>" ' C列のフィルタ解除
End With
End If
End Sub
上記のコードでは、ActiveSheetで現在アクティブなシートを取得しています。その後、シートがフィルタ設定されているかどうかを確認し、フィルタ範囲を指定してC列のフィルタを解除しています。

フィルタ範囲やフィルタ解除する列を変更する場合は、Range()やFieldの引数を変更してください。

とchatgptが申していた