質問: "bbbb" sheets("aaaa").activate range("a1").select selection.autofilter selection.autofilter field:=key, criteria1:="*" selection.autofilter field:=key2, criteria1:="*" selection.currentregion.copy sheets("bbbb").activate range("a1").pastespecial paste:=xlall selection.currentregion.select end sub ******* 説明不足な所がございましたら追記致します。 何卒よろしくお願い致します。
回答: no2です。 入力の妥当性等は無視して前回のコードを展開してみましたが如何でしょうか。 sub test() dim key as string dim key2 as string key = application.inputbox("抽出列の番号を入れて下さい") key2 = application.inputbox("抽出列の番号を入れて下さい") flga = worksheetfunction.countif(cells(1, val(key)).entirecolumn, "*") > 1 flgb = worksheetfunction.countif(cells(1, val(key2)).entirecolumn, "*") > 1 if not (flga or flgb) then exit sub worksheets.add after:=activesheet, count:=1 activesheet.name = "bbbb" sheets("aaaa").activate range("a1").select selection.autofilter select case true case flga and flgb selection.autofilter field:=key, criteria1:="*" selection.autofilter field:=key2, criteria1:="*" case flga selection.autofilter field:=key, criteria1:="*" case flgb selection.autofilter field:=key2, criteria1:="*" end select selection.currentregion.specialcells(xlcelltypevisible).copy _ sheets("bbbb").range("a1") sheets("aaaa").autofiltermode = false end sub