--Birden fazla Kaydı olan BirimAdını listeler
select BirimNo from BIRIM B1 WHERE BirimAdi in (SELECT BirimAdi FROM BIRIM group by BirimAdi having count(BirimAdi)>1)
 AND BirimNo <>(SELECT MIN(BirimNo) FROM BIRIM B3 where B3.BirimAdi=B1.BirimAdi)

--Birden fazla BirimAdı olan kayıtları temizler. İlk kayıt kalacak diğerleri gidecek.
delete from BIRIM WHERE BirimNo in
(select BirimNo from BIRIM B1 WHERE BirimAdi in (SELECT BirimAdi FROM BIRIM group by BirimAdi having count(BirimAdi)>1)
 AND BirimNo <>(SELECT MIN(BirimNo) FROM BIRIM B3 where B3.BirimAdi=B1.BirimAdi))