質問: 条件範囲.cells(2, 1).value データ範囲.range("a1:h1").copy シート.range("a1") データ範囲.advancedfilter action:=xlfiltercopy, _ criteriarange:=条件範囲.rows("1:2"), copytorange:=シート.range("a1:h1") シート.range("a1").currentregion.entirecolumn.autofit next i 条件範囲.clear end sub
回答: こんばんは、 やはりz列は使用されていないのでしょうか? 非表示にされていたのと結果シートで数値があったので 使用されている事を前提にしました。 エラーは空白に囲まれた範囲の取得にaa列が入っていない為かと z5セルにアンダーバーなど何だかの値を入れ (フォント色を背景と同じでok)実行してみてください。 あと、最後の .range("a1").select これエラーになるかと シート選択されていないので 前に .select のみを追加してください #5のelseも忘れずに。。。 z列の変更が出来ない場合は、書き直すか、実行時にvbaで暫定値を入力 終了時削除するなどのコードを追加する必要があると思います。