需要额外处理，参考代码
Dim count As Integer = 0For Each r As Row In Tables("表A").Rows If r.IsNull("第三列") = False Then count += r("第三列").split(",").Length End IfNextmsgbox(count)
加好友 
发短信
Post By：2014/9/22 9:22:00 [只看该作者]
