如何确定学生是否已经有效回复？简化了下原题

活在理想的世界

高空闪电 发表于 2018-3-1 15:30
其余没有变化，只是希望能自定义查找关键词。

1. Sub d()
   
2. Dim Reg As Object, Mac As Object, Dic As Object, M As Object, arr(), str As String
   
3. Set Reg = CreateObject("VBScript.RegExp"): Set Dic = CreateObject("Scripting.Dictionary"): str = "^([一-龥]+).+(" & Sheet1.[B2] & ")"
   
4. arr = Sheet1.Range("b4").CurrentRegion: Reg.Global = 1: Reg.Pattern = str: Reg.MultiLine = 1
   
5. Set Mac = Reg.Execute(Sheet1.[A2])
   
6. For Each M In Mac
   
7. r = r + 1: c = 0
   
8.     For Each ii In M.SubMatches
   
9.         c = c + 1
   
10.         If c = 1 Then Dic(ii) = ""
    
11.     Next
    
12. Next
    
13. For i = 2 To UBound(arr)
    
14.     If Dic.Exists(arr(i, 1)) Then
    
15.         arr(i, 2) = "是"
    
16.     Else
    
17.         arr(i, 2) = "否"
    
18.     End If
    
19. Next
    
20. Range("c5").Resize(65500, 1).ClearContents: Range("b4").CurrentRegion = arr
    
21. End Sub

复制代码

活在理想的世界

111111111111111111111111111111111111111111111111111

mengrs

=IF(ISERROR(FIND("责任",MID(A$2,FIND(B5,A$2),40))),"否","是")
思路：从姓名所在位置开始，提取40个字符，再查找提取的这40个字符中是否含有“责任”二字。

高空闪电

活在理想的世界 发表于 2018-3-1 16:54

谢谢，明天继续献花！

高空闪电

活在理想的世界 发表于 2018-3-1 16:55
111111111111111111111111111111111111111111111111111

谢谢，明天献花！

高空闪电

mengrs 发表于 2018-3-1 17:46
=IF(ISERROR(FIND("责任",MID(A$2,FIND(B5,A$2),40))),"否","是")
思路：从姓名所在位置开始，提取40个字 ...

好思路，40,应当根据实际要求回复内容选取合适的数值！不错。