如何删除重复的行但保留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$2)"

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

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

Answer 1

如果您希望这些值保持不变，请在删除重复项之前对公式结果进行硬编码：

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