excel单元格数字对比及输入条件自动筛选

excel单元格数字对比

在b1单元格中输入以下公式，再下拉填充到b6即可。

=iF(oR(mid(a1,1,1)="*",mid(a1,1,1)=mid($c$8,1,1)),iF(oR(mid(a1,2,1)="*",mid(a1,2,1)=mid($c$8,2,1)),iF(oR(mid(a1,3,1)="*",mid(a1,3,1)=mid($c$8,3,1)),iF(oR(mid(a1,4,1)="*",mid(a1,4,1)=mid($c$8,4,1)),"正确","错误"),"错误"),"错误"),"错误")

excel单元格中输入条件自动筛选

excel单元格中输入条件自动筛选得用宏。

右键点该工作表的名字（在左下方，如sheet1），查看代码，粘贴如下代码：

Private sub worksheet_change(byVal target as Range)

on errro goto Line1

if target.address = "$a$2" then

activesheet.Range("b2:b6").autoFilter Field:=1, criteria1:="=" & target & "*"

end if

Line1: end sub

回到excel，功能实现。

原文地址：https://www.weidianyuedu.com/content/0420662361604.html