请问:下列代码具有删除重复行功能,但是,当行为一行、或两行(不重复)时,全部删除,行数必须为三行以上才能不被全部删除?如何保证只有一行或两行时不被删除,两行重复留一行,两行不重复不被删除?
Dim t As Table = Tables("导入订单")t.Select(t.Rowsel,t.cols("重复删除过渡列").Index)syscmd.Filter.ShowRedundantValuesFor i As Integer = t.Rows.Count -1 To 0 Step -1 t.rows(i).DeleteNextt.filter = ""