[医疗卫生]如何用正则根据诊断判断是否肺结核病例？

作者：绿色风分类：时间：2022-08-18 浏览：131

楼主 wjc2090742	Q：如何用正则根据诊断判断是否肺结核病例？ A： Sub tt() Dim i&, ar(), j As Byte ar() = [a1].Resize(Cells(Rows.Count, 2).End(3).Row, 11).Value Set reg = CreateObject("vbscript.RegExp") With reg .Global = True .Pattern = "肺(?!外).*?结核" For i = 2 To UBound(ar, 1) For j = 2 To 11 If Len(ar(i, j)) = 0 Then Exit For If .test(ar(i, j)) Then ar(i, 1) = "肺结核" Exit For Else ar(i, 1) = "" End If Next j Next i End With Set reg = Nothing Range("a:a").ClearContents [a1].Resize(UBound(ar, 1), 1) = WorksheetFunction.Index(ar, 0, 1) End Sub 参考链接： [实例]如何根据诊断判断是否肺结核病例？ http://www.exceltip.net/thread-8891-1-1.html 如何从诊断是否肺结核？.rar
2楼 liuguansky	.Pattern = "肺[^外]*结核" 这个试试。
3楼 liuguansky	*？这样的懒惰匹配没必要吧。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表