EXCEL VBA 的小问题

Sub jjj() Dim i% For i = [a65536].End(xlUp).Row To 1 Step -1 If Application.WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete Next i End Sub 用上面代码就能删掉重复项了 先建个窗口,再加个按钮,在按钮事件里加入上面的代码. Dim