そうであれば以下いかがでしょうか？(上記サンプルだけで結果成否がよくわかりませんが）
dt.AsEnumerable.GroupBy(Function(r) r("No").ToString).Where(Function(g) (g.Count=1 OrElse g.GroupBy(Function(r2) r2("番号").ToString).Count()=1) AndAlso g.Any(Function(r3) r3("締切日").ToString<>"")).SelectMany(Function(g2) g2).CopyToDataTAble
Sample20240610-7 (2).zip (9.7 KB)