F2单元格输入公式=IF(COUNTIF(C$2:C2,C2)>2,LOOKUP(1,0/(C$1:C1=C2),F$1:F1),MAX(F$1:F1)+1)
G2单元格输入公式="D"&TEXT(F2,"0000")
下拉两个公式。将F列隐藏即可。
示例