不知道这段代码能否完整显示被删除的行(只要不删除_identify的最后一行就可以,否则要把这个曾经最大的行号保存这一个变量中,再判断): Dim n,s,s1 as integer Tables("表A").Sort = "_Identify" For i as integer = 0 To Tables("表A").Count -1 Dim m as integer = Tables("表A").rows(i)("_Identify") n = m - i+s If n-s - s1 > 0 Then s = n output.show("删除的行是:" & " " & i+s1 & " 到 " & m-1) '****显示被删除的行:::::::: s1 = m - i End If Next