主题：请问：下列代码具有删除重复行功能，但是，当行为一行、或两行时，全部删除，行数必须为三行以上？

请问：下列代码具有删除重复行功能，但是，当行为一行、或两行（不重复）时，全部删除，行数必须为三行以上才能不被全部删除？如何保证只有一行或两行时不被删除，两行重复留一行，两行不重复不被删除？

Dim t As Table =  Tables("导入订单")
t.Select(t.Rowsel,t.cols("重复删除过渡列").Index)
syscmd.Filter.ShowRedundantValues
For i As Integer = t.Rows.Count -1 To 0 Step -1
    t.rows(i).Delete
Next
t.filter = ""