B1输入=MOD(COUNTIF(A1:$A$22,A1),A1)+1往下拉其中$A$22改为你表格实际的行数
问题具体一点 虽然excel没有 for....next函数 .但是vb有！你的问题能解释清楚可以做
