這樣高效些:
增一"重叠"字符型辅助列
ReplaceFor("表1","重叠","") And EvalFor("表1","第三列","""|"" [第三列] ""|""") And EvalFor("表1","第三列","If(Eval(""if(FindRow(""""表1"""",""""第三列"""",""""Instr" """,""""|"" Substitute(Substitute(Substitute(Eval(""Substitute(""""|@|#|"""",""""|"""",""" """ Substitute(Mid([第三列],1,Len([第三列])-2),""|"","""""") """"|"""" Substitute (""""|@|#|"""",""""|"""","""""") """""")""),""|""," "|"""",""""重叠"""",""""="""",""""""""), if(FindRow(""""表1""" ",""""第三列"""",""""Instr"""",""""|""),""@"",""|"""",2)> 0,ReplaceFor(""""表1"""",""""重叠"""",""""""),""#"","""""",""""第三列"""",""""instr"""",""""|"") ""|"""",""""重叠"""",""""=" """,""""""""),True "" Rept("")"",1 Len(Mid([第三列],1,Len([第三列])-2)) -Len(Substitute(Mid([第三列],1,Len([第三列])-2),""|"","""")))),Mid([第三列], 1,Len([第三列])-2),Mid([第三列],1,Len([第三列])-2))") And Do(112) And FilterFor("重叠", ">" ,"") And SortCol("表1","第三列",1) And SortCol("表1","重叠",1)