核对两列对应数据

夜空星辰

2010-3/20103266482151486.rar

[此贴子已经被作者于2010-3-26 6:48:27编辑过]

夜空星辰

Sub Formula()
' 夜空星辰，时间: 2010-3-26
ActiveCell.FormulaR1C1 = "核对"
Range("C2").Select
Selection.FormulaR1C1 = "=IF(RC[-2]=RC[-1],"""",""不符"")"
Selection.AutoFill Destination:=Range("C2:C51")
Range("C2:C51").Select
End Sub


Sub F5()
' 夜空星辰，时间: 2010-3-26
Range("A2:B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.RowDifferences(ActiveCell).Select
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End Sub


Sub AdvancedFilter()
' 夜空星辰，时间: 2010-3-26
Range("A2:A51").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A56:A105"), Unique:=False
End Sub

大嘴

貌似熟悉过...