求助，求如果符合要求则显示1，否则显示0

159720

谢谢高手指导

grf1973

跳出循环用了goto，罪过罪过。。。。。。。。

1. Sub grf()
   
2.     With Sheet1
   
3.         .Range("F:F").Clear
   
4.         arr = .[a1].CurrentRegion
   
5.         L1 = UBound(arr): L2 = UBound(arr, 2)
   
6.         For i = 1 To L1 - 1
   
7.             compstr = arr(i + 1, L2): n = 0
   
8.             For j = 1 To L2 - 1
   
9.                 xstr = arr(i, j)
   
10.                 For k = 1 To Len(xstr)
    
11.                     c = Mid(xstr, k, 1)
    
12.                     If InStr(compstr, c) > 0 Then n = n + 1: Exit For         '字符符合要求，n=n+1
    
13.                     If k = Len(xstr) And n = 0 Then GoTo aa      '如果有一个字符不符合要求，直接退出循环
    
14.                 Next
    
15.             Next
    
16. aa:
    
17.             .Cells(i, "f") = IIf(n = L2 - 1, 1, 0)              'n=L2-1表示所有字符都符合要求
    
18.         Next
    
19.     End With
    
20.         
    
21. End Sub
    

复制代码