第1个回答 2011-12-14
第一问,假设数据是从A1:B10000
其实你的实际是A J二列
那就选中A列,按下ctrl键再左键点J列列标,这样二列全选中了
然后,条件格式,新建规则
最后一项,使用公式确定要设置格式的单元格
输入
=SUMPRODUCT(($A1&$J1=$A$1:$A$10000&$J$1:$J$10000)*1)>1
格式里定义字体颜色,红色,确定
即可
另外你追加的问题
代码是
Sub 筛选()
Dim ar As Range, br As Range, x As Range, cr(), c%
Set ar = Sheet1.Range("a2", Sheet1.[a65536].End(3))
Set br = Sheet2.Range("a2", Sheet2.[a65536].End(3))
For Each x In ar
If br.Find(x, , , 1) Is Nothing Then
c = c + 1: ReDim Preserve cr(1 To c)
cr(c) = x
End If
Next x
If c > 0 Then Sheet3.[a1].Resize(c) = Application.Transpose(cr)
End Sub本回答被提问者采纳