tunae PehT
Sub 试验内容查找()
name = InputBox("请输入你想要查询的内容")
ends = Sheet2.Columns(1).Find("*", searchdirection:=xlPrevious).Row 'ends的值为第二单元格，第一列的所有非空值的数量
Sheet1.Range("a2:h2").Rows.Delete '删除表单1的内容
For Each rng In Sheet2.Range("a2:h4") 'rng为表2 a2:h4的内容
m = m + 1 '计数器启动
If rng Like name Then '如果rng的值和name的值相似，则启动循环
k = k + 1 '计数器2启动
Sheet2.Range("a" & m + 1 & ":h" & m + 1).Copy Sheet1.Range("a" & k + 1) '如果条件成立，将表2对应的内容复制到表1中
End If
Next
End Sub
里面除了数字,有数字之外的内容吗?
用这个就行了
