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

高空闪电

班级通知评论个数统计简化版.zip (7.19 KB, 下载次数: 15)

2018-2-28 18:21 上传

点击文件名下载附件

想用公式实现黄色区域显示是否已有效回复。希望大神帮助。

活在理想的世界

111111111111111111111111111111111111111111

高空闪电

活在理想的世界 发表于 2018-2-28 19:07
111111111111111111111111111111111111111111

不明白，也不会用啊！

活在理想的世界

  2018-2-28 20:16

你怎么模拟的数据？接下来就怎么做咯。表格是自动的

活在理想的世界

这又不是什么高科技，把数据补全结果自动生成

高空闪电

活在理想的世界 发表于 2018-2-28 20:29
这又不是什么高科技，把数据补全结果自动生成

在我看来很是深奥哦，我再试下。

zjdh

他要判断的是“责任”，不是“已阅读”。

活在理想的世界

我已经判断为已阅读了，我懒得再改了。

高空闪电

活在理想的世界 发表于 2018-2-28 21:24
我已经判断为已阅读了，我懒得再改了。

Sub d()
Dim Reg As New RegExp, Mac As MatchCollection, M As Match, arr(), brr()
Dim Dic As New Dictionary
brr = Range("b4").CurrentRegion.Resize(, 2)
Reg.Global = 1: Reg.Pattern = "^([一-龥]+).+: ([一-龥]+)": Reg.MultiLine = 1
Set Mac = Reg.Execute([A2]): ReDim arr(1 To Mac.Count, 1 To 2)
For Each M In Mac
r = r + 1: c = 0
    For Each ii In M.SubMatches
        c = c + 1: arr(r, c) = ii
    Next
    Dic(arr(r, 1)) = arr(r, 2)
Next
For i = 2 To UBound(brr)
    If Dic.Exists(brr(i, 1)) Then
       If Dic(brr(i, 1)) = "已阅读" Then
            brr(i, 2) = "是"
        Else
            brr(i, 2) = "否"
       End If
    Else
        brr(i, 2) = "否"
    End If
Next
Range("c4").Resize(65500, 1).ClearContents: Range("b4").CurrentRegion.Resize(, 2) = brr
End Sub

高空闪电

不明白啊，不明白。