Excel総合相談所 132

[0159 名無しさん＠そうだ選挙にいこう 2018/07/28(土) 07:54:35.17]

Sub Chusyutsu()
Dim Cm As String
Cm = Cells(5,1).Value
ActiveSheet.ListObjects("sheet1").Range.AutoFilter Field:=1, Criteria1:= Cm
End Sub