[已解决][求助]请帮助修改代码

zzh49

各位老师，请帮助修改代码，扩大查找范围。
详情见附件。
谢谢！
附件： 附件.rar (7.8 KB, 下载次数: 4)

2011-6-26 17:27 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

wayy

2011-6-26 18:01

Sub wayy()
Set Rng = Sheets("Sheet1").Columns("B:B").Find([a1])
If Not Rng Is Nothing Then
  [c2] = "此人在" & Rng.Row & "行"
  Else
  MsgBox "查无此人！"
End If
End Sub

跳转到最佳答案楼层

wayy

Sub fc()
With Sheets("sheet2")
k = Sheets("sheet1").Range("B65536").End(3).Row
a = WorksheetFunction.CountIf(Sheets("sheet1").Range("B1:B65536" & k), Range("A1"))
If a = 0 Then
  MsgBox "查无此人！"
  [c2] = ""
   Else
  [c2] = "OK!"
End If
End With
End Sub

wayy

Sub wayy()
Set Rng = Sheets("Sheet1").Columns("B:B").Find([a1])
If Not Rng Is Nothing Then
  [c2] = "此人在" & Rng.Row & "行"
  Else
  MsgBox "查无此人！"
End If
End Sub

zzh49

谢谢老师，感谢您的帮助。