今天小编给大家分享一段超短ExcelVBA代码，主要用于：

标记D列每个单元格内容在D列出现的重复次数，并填写在每行对应的E列单元格中。

先看操作步骤，很简单，主要分为三步：

①整理数据源，将要进行标记重复次数的数值粘贴在D列中；

③运行宏。

代码如下：

Sub计算某列值重复次数()

DimiAsLong

Fori=2("d1004872").(xlUp).Row

Range("e"i).FormulaR1C1="=CountIf(R2C4:RC[-1],RC[-1])"

Next

Sub

怎么样，是不是超短？这段代码的使用场景多用于数据源的整理，将一些重复出现的数据做无效剔除。

只需几秒钟就可以完成日常有些繁琐的小事情，快来get它吧~