问题补充说明：Dim tj As String Dim shs As Long Dim fws As Integer Dim jls As Long Dim i As Integer Range("c5").***.select jls = Selection.Rows.Count - 1 tj = InputBox("请输入检索字段", "检索") Selection.AutoFilter field:=4, criterial:=tjexcel vba中运行到最后一行时提示“运行时错误1004 应用程序定义和对象定义错误”，求解这是为什么？谢谢！
查看下工具--宏--安全性，安全级别降低，可靠发行商保留空白如果新建文档也会出现上述情况，试打开EXCEL后，工具--宏--V井协第织B编辑器，删除里企斯计增眼错钱鱼福致跟面的程序，再观察或者新建一个用户也可以解决
还是关闭宏吧，所有电脑
不排除中有360问答宏病毒，或曾经中过。
标签：运交振委技,各行
版权声明：文章由 淘百问 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.taobaiwen.com/answer/395406.html
