[已解决]求助各位老师如何加这个提取工作薄名称的if判断（有图有代码）

qinhuan66

arr(2, s - 2) = Mid(wj, 4, IIf(InStr(wj, "社区") > 0, InStr(wj, "社区") - 2, Len(wj) - 14))

以上此条代码是提取工作薄名称（从第四位开始提取到区字和村字的前面的所有文字）如下图

现在碰到一个问题，如果是带有社区的名称提取就准确，带有村的提取就不够完整。如下图：下图1、花木提取不完整应该为花木山村；2、北郊社区提取完整正确。


现在如何修改此条代码带有社区和村的都提取完整。


本人试了一条：
arr(2, s - 2) = Mid(wj, 4, IIf(InStr(wj, "社区" & "村") > 0, InStr(wj, "社区" & "村") - 2, Len(wj) - 14))
好像行不通。期待高手解答。谢谢

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-5 21:41

Mid(wj, 4, WorksheetFunction.Max(InStr(wj, "社区") - 2, InStr(wj, "村") - 3))

跳转到最佳答案楼层

cbg2008

Mid(wj, 4, WorksheetFunction.Max(InStr(wj, "社区") - 2, InStr(wj, "村") - 3))

cbg2008

Mid(wj, 4, WorksheetFunction.Max(InStr(wj, "社区") - 2, InStr(wj, "村") - 3))

qinhuan66

cbg2008 发表于 2013-2-5 21:34
Mid(wj, 4,MAX(InStr(wj, "社区" ) -2,InStr(wj,"村")-3))

谢谢了，我也刚弄了一条。arr(2, s - 2) = Mid(wj, 4, IIf(InStr(wj, "区") > 0, InStr(wj, "区") - 3, InStr(wj, "村") - 3))