[已解决]怎么找出？

adadada · 发表于 2013-10-16 20:31

本帖最后由 adadada 于 2013-10-21 21:45 编辑

怎么找出？

最佳答案

月排行榜 / 总排行榜

zjdh

2013-10-16 20:53

附件.rar (6.96 KB, 下载次数: 19)

zjdh · 发表于 2013-10-16 20:53

附件.rar (6.96 KB, 下载次数: 19)

mg0601001 · 发表于 2013-10-16 21:30

=IF(COUNTIF($E$3:$E$15,F3)=0,"",F3)
老师说过，原则上函数是不能实现控制，我在F列做的这个公式，看看能不能用。

adadada · 发表于 2013-10-16 22:24

zjdh 发表于 2013-10-16 20:53

不用go to 行不行？

adadada · 发表于 2013-10-16 23:02

Sub TEST()
  For I = Range("F65536").End(3).Row To 3 Step -1
  For J = 3 To Range("E65536").End(3).Row
If Cells(I, "F") = Cells(J, "E") Then GoTo 10
  Next
  Cells(I, "F").Delete Shift:=xlUp
10  Next
End Sub

zjdh · 发表于 2013-10-17 08:10

Sub TEST2()
On Error Resume Next
For I = Range("F65536").End(3).Row To 3 Step -1
Set S = Range("E:E").Find(Cells(I, "F"))
If S Is Nothing Then Cells(I, "F").Delete Shift:=xlUp
Next
End Sub

		自动登录	找回密码
密码			注册