質問: dateserial(year(date), month(date) + 3, 0) with worksheets("sheet1").range("a1") .autofilter field:=14, criteria1:="<= slast " .currentregion.specialcells(xlvisible).copy .worksheets("期限管理").range("a1") .autofilter end with worksheets("期限管理").activate end sub
回答: ””で囲まれるとslastは変数として認識してくれないので。 criteria1:="<=" & slast で試してみてください。