如果没有这一列的每个数据都要筛选，将这个值设为变量，将再筛选的值该成这个变量再试一下。
有这样的函数的，只不过我忘记什么了怎末在用的，subtotal（），这个原函数你做研究一下，它会在筛选之后通过规则接受编码的；当然了，我有个建议：你把第一个截图的三个列扩展到一个列（如，d列）中，接着再进行编码，在用vlookup时候，参考d列参与。
这时候就你不筛选功能了，再vba里边3重循环对3列数据接受搜索，然后用hlookup功能offset到j列把数值累加到一个变量里，最后推测该标什么颜色表什么颜色
如数据范围为a2:a100，加了筛选。异或语句为：(range(a2:a100).specialcells(xlcelltypevisible))
“公交20路到x换乘101路到x口换12号地铁在45站下车”
简单，适用正则表达式。d不兼容数字
subvv()
dimregxlikeobject,strdataasstring,arr()
dimmaxnum,minnumsetregxcreateobject()创建家族正则
strdata公交20路到x换乘101路到x口换12号地铁在45站下车后
withregx
.globaltrue
.patternd
anyeachmatin.execute(strdata)
nn1
redimpreservearr(1ton)
arr(n)val(mat)
next
maxnum(arr)求得的比较大值
minnumapplication.min(arr)求得的最小值
endwith
endsub
