将表2合并到表1中根据序号判定是否重复，若有重复删除表1中序号相同的行的VBA怎样写

更新时间2019-12-08 05:35:51

Sub macro1()

    Sheets("Sheet2").Range("A1:O12").Copy

    Sheets("Sheet1").Range("A1").Insert Shift:=xlDown

    Columns("A:O").Select

    ActiveSheet.Range("$A$1:$O$47").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _

        , 8, 9, 10, 11, 12, 13, 14, 15), Header:=xlNo

   Range("A1").Select

End Sub

根据你的表格情况，稍加修改即可。