如何删除重复行但保留 CountIf 值？

Question

我在 E 列上使用 countif 函数来获取消费者号码出现的次数。当我使用代码删除重复项时，E 列上的值变为 1.

如何删除整行重复项而不更改 countif 给我的第一个值？

'column E test
     intrlastrow1 = Sheets("sheet1").Cells(Cells.Rows.Count, "B").End(xlUp).Row
     Sheets("sheet1").Range("E2:E" & intrlastrow1).Formula = "=Countif(A:A,$A)"

    With ActiveWorkbook.Worksheets("sheet1")
    Range("A2:B" & intrlastrow1).RemoveDuplicates Columns:=1, Header:=xlNo
    End With

计算每个值并将结果粘贴到 E 列的最有效方法是什么？

Answer 1

如果您希望值保持不变，则hard-code删除重复项前的公式结果：

With Sheets("sheet1").Range("E2:E" & intrlastrow1)
    .Formula = "=Countif(A:A,$A)"
    .Value = .Value '<~ hard-code the result
End With

如何删除重复行但保留 CountIf 值？

How to delete duplicate rows but Keep CountIf value?

excel

vba

formula