ws.Range("A2").AutoFilter Field:=3, Criteria1:="誕生" For Each r In ws.AutoFilter.Range.SpecialCells(xlCellTypeVisible) If r.Row > 2 And r.Column = 4 Then 'オートフィルタ範囲の可視セルで2行目以降のD列だけ処理 End If Next 無理やりです。出来…

ws.Range("A2").AutoFilter Field:=2, Criteria1:="ピカちゅう" If WorksheetFunction.Subtotal(3, Range("C:C")) = 1 Then '結果が0件の場合の処理。 End If この処理は、オートフィルタを実施して、C列をCOUNTAした結果、タイトル行の1件しか無かった＝フ…

'それぞれの列で条件を指定したい時、それぞれ指定すればよい With ws.Range("A1") .AutoFilter Field:=2, Criteria1:="ピカちゅう" .AutoFilter Field:=3, Criteria1:="誕生" End With '配列を渡して一括設定。Arrayとかもできる。 Dim dic, ar '略。条件用…