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

编程问答 2022-06-12

问题描述

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

enter image description here

enter image description here

如何删除重复的整行而不更改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列中的最有效方法是什么？

解决方法

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

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