下面的东西是网络上找的。整理一下，方便以后参考。

Dim 我就不写了，整个程序我也不写了，只写你需要的 
Dim rag as object 其他的都是int 

a = Sheets("期房").[b65536].End(xlUp).Row 
j = Sheets("录入").[c65536].End(xlUp).Row 
b = 5 
For Each Rac In Sheets("录入").Range("C1:C" & j) 
If Not (Rac.Text = "住宅" Or Rac.Text = "公寓" Or Rac.Text = "商业" Or Rac.Text = "工业" Or Rac.Text = "车库" Or Rac.Text = _ 
"综合" Or Rac.Text = "其它" Or Rac.Text = "办公" Or Rac.Text = "别墅") Then 
MsgBox "录入用途（C列）请在“住宅，公寓，别墅，商业，工业，办公，车库，综合，其它”中选择" 
Exit Sub 
End If 

Next 

For Each Rag In Sheets("期房").Range("A5:j" & a) 
If Rag.Text Like TextBox1.Text Then 
r = Rag.Row 
b = b + 1 
End If 
Next

这个是模糊查询

For Each Rag In Sheets("期房").Range("a5:j" & a)
   If Rag.Text Like  "*" & ComboBox1.Text & "*" Then
         Cells(b, 4) = Rag.Text
         Cells(b, 1) = Rag.Offset(, -3).Text
         Cells(b, 2) = Rag.Offset(, -2).Text
         Cells(b, 3) = Rag.Offset(, -1).Text
         b = b + 1
      End If
   Next
====================================================================

For i = 1 To Worksheets.Count - 1，要查找的学生姓名，从第一个工作表开始查找，找到倒数第二个工作表。因为最后一个工作表，是放按钮控件的，没有班级信息。

For j = 4 To Worksheets(i).UsedRange.Rows.Count，查找每个班级的学生姓名的时候，从第4行开始查找，因为从第四行起，才有学生姓名。前三行都是保存其它信息的。YouName = Trim(InputBox……，这是一个弹出输入框的代码，以方便我们输入要查找的姓名。