Sheet1.Range("B4:B" & Rows.Count).AutoFilter Field:=1, Criteria1:="" & TextBox1.Value & ""
也许如果你去掉引号?
Sheet1.Range("B4: B",Rows.Count)。AutoFilter字段=1,Criteria1 = TextBox1。值
textbox1位于哪里?这是一个用户表单还是一个工作表中的对象?