0

ﾏｸﾛVBA_ｵｰﾄﾌｨﾙ条件に該当がない場合の処理方法について。 初心者なので以下処理できず困っています＞＜!
至急にてご回答お待ちしております。

複数条件に合致するﾃﾞｰﾀをｵｰﾄﾌｨﾙでｿｰﾄして抽出した該当行の「Z列（26列目）」に可視ｾﾙ設定し
「*」を付与していく作業を繰り返しています。
その中で条件に該当ないと「xlUP」設定もしているので抽出行が空白になり1行目に「*」が付いてしまいます。。
条件に該当がない場合には何もしない（「*」付与はしないで次の条件or式へ。）という条件を付けるにはどの様な式をどこに挿入すれば良いのでしょうか？？
分かり辛い説明となり申し訳ございません、、宜しくお願いします＞＜!!!

---------------------------------------------
（省略）
：
：
Dim LastRow As Long
LastRow = Sheets("sheet1").Cells(65536, 25).End(xlUp).Row

Rows("1:1").Select
Selection.AutoFilter

'ｴﾗｰ回避
On Error Resume Next

Selection.AutoFilter Field:=10, Criteria1:="AA"
Selection.AutoFilter Field:=16, Criteria1:="BB"
Selection.AutoFilter Field:=17, Criteria1:="CC"
Selection.AutoFilter Field:=22, Criteria1:="DD"
Range(Cells(2, 26), Cells(LastRow, 26)).SpecialCells(xlCellTypeVisible).Select
Selection.FormulaR1C1 = "*"

ActiveSheet.AutoFilterMode = False

Rows("1:1").Select
Selection.AutoFilter

Selection.AutoFilter Field:=10, Criteria1:="EE"
Selection.AutoFilter Field:=21, Criteria1:="FF"
Selection.AutoFilter Field:=22, Criteria1:="GG"
Range(Cells(2, 26), Cells(LastRow, 26)).SpecialCells(xlCellTypeVisible).Select
Selection.FormulaR1C1 = "*"

ActiveSheet.AutoFilterMode = False

End Sub
---------------------------------------------

質問者が選んだベストソリューション

Yahoo!知恵袋 5018日前