筛选后执行
Dim t As Table = Tables("表A")Dim pdr As Row = NothingFor Each dr As Row In t.rows If pdr Is Nothing Then dr("余额") = dr("收入") - dr("支出") Else dr("余额") = dr("收入") - dr("支出") + pdr("余额") End If pdr = drNext