>>281
Excel2019以後や365版ならVBAでなくワークシート関数のFilter関数使った方が楽かと。
こんな感じ。
=FILTER(B:B,A:A=“不備なし”)