有这样一个需求，需要在某个范围里寻找同时含有2个条件的文本个数，第一想到的时countifs这个公式，可以范围只有一个，条件却有2个；进一步想，将两个条件合并成一个，这样条件1个，范围一个，就能用countif了；但是，棘手的是，两个条件的合并不能直接在范围里找到，因为两个条件的文本顺序与范围内的文本顺序不一样。就比如说条件1是IPHONESE3RDGENWHITE，条件2是64GB，在范围里能查找到的准确值是IPHONESE3RDGEN64GBWHITE。 如图所示： 于是我就编辑了如下命令给AI： FunctionCOUNTIFSPLIT（rngAsRange，criteria1AsString，criteria2AsString）AsLong Dimarr1（）AsString Dimarr2（）AsString DimcountAsLong DimiAsLong，jAsLong ForEachcInrng arr1Split（criteria1，） arr2Split（criteria2，） count0 Fori0ToUBound（arr1） Forj0ToUBound（arr2） IfInStr（1，c。Value，arr1（i），vbTextCompare）0AndInStr（1，c。Value，arr2（j），vbTextCompare）0Then countcount1 EndIf Nextj Nexti IfcountUBound（arr1）1UBound（arr2）1Then COUNTIFSPLITCOUNTIFSPLIT1 EndIf Nextc EndFunction FunctionCOUNTMATCHEDWORDS（Condition1AsString，Condition2AsString，RangeColumnAsRange）AsInteger DimCondition1Array（）AsString Condition1ArraySplit（Condition1，） DimSearchStringAsString SearchStringJoin（Condition1Array，）Condition2 DimMatchCountAsInteger MatchCount0 DimCellAsRange ForEachCellInRangeColumn DimCellArray（）AsString CellArraySplit（Cell。Value，） DimIsMatchedAsBoolean IsMatchedTrue DimCondition1WordAsVariant ForEachCondition1WordInCondition1Array IfNotIsInArray（Condition1Word，CellArray）Then IsMatchedFalse ExitFor EndIf NextCondition1Word IfIsMatchedAndIsInArray（Condition2，CellArray）Then MatchCountMatchCount1 EndIf NextCell COUNTMATCHEDWORDSMatchCount EndFunction FunctionIsInArray（WordAsString，WordArray（）AsString）AsBoolean DimiAsInteger IsInArrayFalse ForiLBound（WordArray）ToUBound（WordArray） IfWordArray（i）WordThen IsInArrayTrue ExitFunction EndIf Nexti EndFunction PublicFunctionCountCommonText（SearchRangeAsVariant，Criteria1AsString，Criteria2AsString）AsLong Dimarr1AsVariant，arr2AsVariant，cellAsRange DimiAsLong，jAsLong，countAsLong DimisMatchAsBoolean arr1Split（Criteria1，） arr2Split（Criteria2，） ForEachcellInSearchRange IfInStr（1，cell。Value，arr1（0），vbTextCompare）0AndInStr（1，cell。Value，arr2（0），vbTextCompare）0Then isMatchTrue Fori1ToUBound（arr1） IfInStr（1，cell。Value，arr1（i），vbTextCompare）0Then isMatchFalse ExitFor EndIf Nexti Forj1ToUBound（arr2） IfInStr（1，cell。Value，arr2（j），vbTextCompare）0Then isMatchFalse ExitFor EndIf Nextj IfisMatchThencountcount1 EndIf Nextcell CountCommonTextcount EndFunction FunctionFINDMATCHES（rngAsRange，cond1AsString，cond2AsString）AsVariant Dimwords1（）AsString Dimwords2（）AsString Dimmatches（）AsString DimmatchCountAsInteger DimiAsInteger DimjAsInteger Splitconditionsintowords words1Split（cond1，） words2Split（cond2，） Loopthrough FunctionFINDMATCHINGCOUNT（criteria1AsString，criteria2AsString，rangeAsRange）AsLong Dimsplit1（）AsString Dimsplit2（）AsString DimiAsLong DimcountAsLong 将条件1和条件2按照空格拆分成数列 split1Split（criteria1，） split2Split（criteria2，） ForEachcellInrange 如果范围单元格的文本串包含条件1和条件2的所有值，则计数器加1 IfInStr（cell。Value，split1（0））0AndInStr（cell。Value，split1（1））0AndInStr（cell。Value，split2（0））0Then countcount1 EndIf Nextcell FINDMATCHINGCOUNTcount EndFunction FunctionCOUNTMATCHES（rngAsRange，cond1AsString，cond2AsString）AsLong Dimarr1（）AsString，arr2（）AsString DimiAsLong，jAsLong，countAsLong 将条件1和条件2拆分为数列 arr1Split（cond1，） arr2Split（cond2，） 循环遍历范围值 Fori1Torng。Cells。Count DimtempArr（）AsString tempArrSplit（rng。Cells（i）。Value，） Dimcond1FoundAsBoolean cond1FoundFalse Dimcond2FoundAsBoolean cond2FoundFalse 检查范围值是否包含所有条件1和条件2的值 Forj0ToUBound（arr1） IfInStr（1，rng。Cells（i）。Value，arr1（j），vbTextCompare）0Then cond1FoundTrue Else cond1FoundFalse ExitFor EndIf Nextj Forj0ToUBound（arr2） IfInStr（1，rng。Cells（i）。Value，arr2（j），vbTextCompare）0Then cond2FoundTrue Else cond2FoundFalse ExitFor EndIf Nextj 如果范围值包含所有条件1和条件2的值，并且不包含额外的值，则计数 Ifcond1FoundAndcond2FoundAndUBound（tempArr）UBound（arr1）UBound（arr2）1Then countcount1 EndIf Nexti COUNTMATCHEScount EndFunction 通过运行以上最后一个自定义函数就可以满足要求。如有问题可以接着问AI。 就这样，我通过不到10分钟的过程，让AI帮我完成了自定义函数的编程，这个过程中还不需要自己亲自去写代码。
蒙阴70万亩桃花次第盛开3月25日，蒙阴县在孟良崮举行70万亩桃花从这里胜开崮乡旅游赏花季开幕仪式。蒙阴是中国蜜桃第一县，每到春暖花开时节，70多万亩桃花自南部孟良崮到北部岱崮次第开放，随山势起伏绵延，灿福州光明港将添温泉水乐园配套一批网红游乐设施就在市中心，9米多高的环形温泉滑道空中悬挑无边际温泉泳池观光螺旋楼梯项目沙盘效果图正在建设中的光明港温泉水乐园力争明年元旦开放运营，将给游客带来全新的温泉游乐体验！力争明年元旦开放向春而行，看一路花开！金寨文旅推介会走进鲜美烟台记者秦雪丽通讯员旅宣3月25日，记者从烟台市文化和旅游局获悉，3月24日下午，向春而行看一路花开金寨烟台文旅推介会在烟台百纳瑞汀酒店举办。本次推荐会得到了烟台市芝罘区文化和旅游局烟2023年3月25日IOS的AppStore软件限免8个APP推荐1。解压缩全能王信息原价36元，中文软件，无内购无广告。软件描述一款解压缩文档的应用进程，它提供压缩文件预览，里面的excel，word，ppt，txt等常用文件格式都支持预览，同你的孩子需不需要牙齿矫正，看完这篇就知道了该不该带孩子做牙齿矫正？什么时候去矫正？矫正之后会变怎么样这些问题困扰着那些想给孩子矫正但还在犹豫的家长。牙齿矫正也叫牙齿正畸，主要是通过矫正装置来调整牙齿和颌面骨之间的关系，从而宝妈囤货必备贵阳孕婴童博览会盛大开幕万千商品一站购齐3月24日，由贵阳世纪金源购物中心童兜天地云贵区域主办的2023贵阳孕婴童博览会，在贵阳世纪金源购物中心盛大启幕。活动为期三天，旨在为消费者提供一站式孕婴童全品类商品采购平台，成为CBA新动态！杜峰提前续约周琦被新疆兜售辽篮造谣者被揪出2023年CBA全明星赛重在进行中，广东男篮教练杜峰任南区主教练，广东男篮为表示诚意，给杜峰教练献上一份五年的续约合同，双方完成提前续约事宜。杜峰教练在广东男篮执教已经有十个年头，超燃开跑！深圳巴士集团第二分公司为盐田山海半程马拉松赛事保驾护航来源读特3月26日上午，盐田区成功举办了首届深圳盐田山海半程马拉松。深圳巴士集团第二分公司采取多种措施确保公交服务质量，赛事当天，共抽调80台运力，输送乘客8000余人次，全力做好与苏州结缘40年，华南虎有了专属卡通形象标识昨天上午，一列满载游客的科普小火车，从上方山北部出发，驶向苏州市动物园中国华南虎苏州培育基地，为华南虎举办卡通形象发布会。这个由苏州小学生创作的卡通华南虎，头顶祥云手藏爱心，凝聚了苏州滑稽戏的魅力在哪？著名滑稽戏表演艺术家告诉你今天（3月26日）下午，非遗走进苏图勤为大家乐图书分享会在苏州第二图书馆举行。著名滑稽戏表演艺术家滑稽梅花第一人张克勤携其传记勤为大家乐在此亮相，和大家分享他的艺术生涯和苏州滑稽戏和美乡村莓好未来农安合隆镇第二届草莓文化节开幕春暖三月，草莓飘香。3月25日，农安县合隆镇和美乡村，莓好未来第二届草莓文化节暨亲子研学游活动在陈家店生态园开幕。本届草莓节设置了草莓产品展示展销农副产品展销草莓DIY制作亲子研学