PCメモ

Excelを中心とした業務改善の記録

2020-08-14から1日間の記事一覧

フィルター後削除

2列目でフィルターをかけて、"佐藤"を抽出。 見出し行以外を削除する。(行を一行下にずらす) フィルターを解除する。 With Range("A1").CurrentRegion .AutoFilter field:=2, Criteria1:="佐藤" .Offset(1, 0).EntireRow.Delete .AutoFilter End With with…