主题：[求助]execl报表指定列不重复计数

这种情况，你需要用标记处理，如

http://www.foxtable.com/webhelp/scr/1959.htm

改成比如

Select Case e.Book.TempLate
    Case "串案分配表"
        Dim ls As new List(of String)
        For Each r As Row In Tables("串案管理_Table1").Rows
            If ls.Contains(r("串案标记")) = False Then
                ls.add(r("串案标记"))
            End If
        Next
        e.Book.Marks("串案次数") = ls.count
End Select