'改变代码查询工作表的C1单元格的值触发工作表事件,下面代码怎么改写?
Sub 按常驻人口姓名查找()
ends = Range("e2:k4500").Columns(1).Find("*", searchdirection:=xlPrevious).Row Sheets("代码查询").Range("a2:x999").Clear Range("e1:k1").Copy Sheets("代码查询").Range("a2")
For Each rng In Range("e2:e" & ends)
m = m + 1
If rng Like Sheets("代码查询").Range("c1") Then k = k + 1
Range("e" & m + 1 & ":k" & m + 1).Copy Sheets("代码查询").Range("a" & k + 2) End If
Next
If Sheets("代码查询").Range("a3") = "" Then Sheets("代码查询").Range("c1") = "请在此输入查询的条件支持通配符"
End Sub