Tables("表A").RepeatFilter("第一列", 2)For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1 Tables("表A").Rows(i).DeleteNextTables("表A").Filter = ""