删除行要倒序删除
MainTable = Tables("表C")
Dim i,i2,i3,i4,cnt As Integer
Dim t As Table = Tables("表C")
cnt = t.Rows.Count
t.StopReDraw
For i = t.Rows.Count - 1 To 0 Step -1
i2 = 0
For Each c As Col In t.Cols
If t.Rows(i).IsNull(c) Then
i2 = i2 + 1 ' 累计为空的列数
Else
Exit For ' 遇到第一个不为空的列,则退出循环'
End If
Next
If i2 = t.Cols.Count Then ' 累计为空的列数 = 列集合数,则删除该行
t.Rows(i).Delete()
i3 = i3 + 1 ' 累计删除的空行数
Else
i4 = i4 + 1 ' 累计不为空( 有数据 ) 的行数
End If
Next
t.ResumeRedraw
output.show("删除前总行数 i = " & cnt)
output.show("删除的空行数 i3 = " & i3)
output.show("有数据的行数 i4 = " & i4)
output.show("总列数 = " & t.Cols.Count )
output.show("删除后总行数 = " & t.Rows.Count )
加好友 
发短信
Post By：2020/8/3 20:43:00 [显示全部帖子]
