假设你两列数据在A,B列.都从第一行开始.按下ALT+F11,插入-模块,复制下列代码.按下F5运行.Sub aaa()Dim a As Integer, b As Integer, c As Integer, d As Integera = WorksheetFunction.CountA(Range("a:a"))b = WorksheetFunction.CountA(Range("b:b"))Range("a1:a" & a).SelectSelection.CopyRange("c1").SelectActiveSheet.PasteRange("b1:b" & b).SelectSelection.CopyRange("c" & a + 1).SelectActiveSheet.Pastec = WorksheetFunction.CountA(Range("c:c"))Range("c1").Selectd = 1For x = 1 To cIf WorksheetFunction.CountIf(Range("c1:c" & x), Range("c" & x)) = 1 ThenCells(d, 4) = ActiveCell.Valued = d + 1End IfActiveCell.Offset(1, 0).SelectNextRange("c:c").DeleteEnd Sub
|