如何删除数据库中表的重复值

在数据库中有两个表A和B，两个表的字段值是一样的，比如都有id和email，需要查询出两个表中的email相同的记录，并且将B表中的记录给删除，删除的同时还要添加到B表的历史表B-His中，用存储过程如何实现呢？？

insert into Bhis Select * From B where B.id in (select  id From A where A.email=B.email)

Delete From B where B.id in  (select  id From A where A.email=B.email)

把这两句建立成存储过程

Create Proc Pro_Del

    Insert Into B-His Select * From A,B Where A.email = B.email

    Delete From B Where A.email = B.email

GO