Dim str As String = "" Dim sum As Double = 0 For Each bm As String In DataTables("表A").GetValues("第一列", Tables("表A").filter) Dim count As Double = Tables("表A").compute("count(第一列)") str &= bm & ":" & count & ";" sum += count Next str &= "总共:" & sum msgbox(str)