主题：如何计算单元格相同字符的数量

参考代码

For Each r As Row In Tables("表A").Rows
    Dim count1 = 0
    Dim count2 = 0
    For Each c As Col In Tables("表A").cols
        If c.name Like "*第*" Then
            If r(c.name) = "出勤" Then
                count1 += 1
            ElseIf r(c.name) = "缺勤" Then
                count2 += 2
            End If
        End If
    Next
    r("第九列") = count1
    r("第十列") = count2
Next

 如果用表达式，就这样写

iif(某列='勾', 1, 0) + iif(某列='勾', 1, 0) + iif(某列='勾', 1, 0)

如果用按钮，就参考5楼代码

也可以写到datacolchanged事件

If e.DataCol.name Like "*第*" Then
    Dim count1 = 0
    Dim count2 = 0
    For Each c As DataCol In e.DataTable.datacols
        If c.name Like "*第*" Then
            If e.datarow(c.name) = "出勤" Then
                count1 += 1
            ElseIf e.datarow(c.name) = "缺勤" Then
                count2 += 2
            End If
        End If
    Next
    e.DataRow("第九列") = count1
    e.DataRow("第十列") = count2
End If