主题：出现2次的数字怎么提取法啊

出现1次的刷新公式：
Substitute(Text(Eval("If(Len(Substitute([选码汇总],Mid([选码汇总],"+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute("0|3|6|9|12|15|18|21|24|27","|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",",2),""""))=Len([选码汇总])-2,"",""+Mid([选码汇总],"),"|",",2),"""")+If(Len(Substitute([选码汇总],Mid([选码汇总],")+",2),"""")")),",","",1)
出现2次，3次。。。，的公式要怎么编啊，上面的只看懂前半部分。请总版主能否再编一下2次，3次的。这样我才能吸收进去

出现1次的刷新公式：
Substitute(Text(Eval("If(Len(Substitute([选码汇总],Mid([选码汇总],"+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute("0|3|6|9|12|15|18|21|24|27","|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",",2),""""))=Len([选码汇总])-2,"",""+Mid([选码汇总],"),"|",",2),"""")+If(Len(Substitute([选码汇总],Mid([选码汇总],")+",2),"""")")),",","",1)

出现2次的刷新公式：
Substitute(Text(Eval("If(Len(Substitute([选码汇总],Mid([选码汇总],"+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute("0|3|6|9|12|15|18|21|24|27","|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",",2),""""))=Len([选码汇总])-4,"",""+Mid([选码汇总],"),"|",",2),"""")+If(Len(Substitute([选码汇总],Mid([选码汇总],")+",2),"""")")),",","",1)

出现3次的刷新公式：
Substitute(Text(Eval("If(Len(Substitute([选码汇总],Mid([选码汇总],"+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute("0|3|6|9|12|15|18|21|24|27","|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",",2),""""))=Len([选码汇总])-6,"",""+Mid([选码汇总],"),"|",",2),"""")+If(Len(Substitute([选码汇总],Mid([选码汇总],")+",2),"""")")),",","",1)

-=-=-=- 以下内容由 wjq1072 在 2010年07月25日 10:00pm 时添加 -=-=-=-
为什么不在原贴回复啊