Sub 删除重复行()Dim i As IntegerFor i = Range("b1").End(xlDown).Row To 1 Step -1 '这里是以B列重复来删除行，根据需要更改里面的"b1"，如果是C列，就改成"C1"'如果是C列则把下面Cells(1, 2), Cells(i, 2)), Cells(i, 2），的2都改成3，如果是D列改成4，依次类推自己更改If Application.WorksheetFunction.CountIf(Range(Cells(1, 2), Cells(i, 2)), Cells(i, 2)) > 1 ThenRows(i).Deletem = m + 1End If...
|
