主题：关于多条件求和

没看懂你想做什么

Dim nms As List (of String)
nms = DataTables("test").GetValues("主动单元")
For Each nm As String In nms
    Dim nr As Row = Tables("test").AddNew()
    nr("主动单元") =  nm
Next

获取当天不重复的值，添加到新增行，然后用来保存当天数据的求和结果，第二天的数据直接引用，不用再重新计算一遍了，

这样不行吗？