Dim t As Table = Tables("tbltz") Dim r As Row = t.Current Dim sum1 As Double = 0 Dim sum2 As Double = 0 For Each c As Col In t.Cols If c.Caption Like "*投zhu(元)" Then If r(t.cols(c.Index+1)) = True sum1+=r(c) Else sum2+=r(c) End If End If Next msgbox(sum1 & " " & sum2)