将表2合并到表1中根据序号判定是否重复,若有重复删除表1中序号相同的行的VBA怎样写
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
根据你的表格情况,稍加修改即可。
热门标签: