[已解决]在A列任意位置输入数据后，判断重复，并跳转至重复位置，如多个重复，则跳转至最后...

汨罗之源

zjdh 发表于 2016-1-12 10:17

Sub 序号()
n = 1
For I = 3 To Cells(Rows.Count, 2).End(3).Row
If Cells(I, 2) <> "" Then
  Cells(I, 1) = n
  n = n + 1
End If
Next
End Sub网上找的添加序号的代码，能否添加到这个VBA内

zjdh

加不是难事，有了这个自动序号的宏，还要防止重复的功能吗？
你只要将语句加到chang事件中即可。

汨罗之源

zjdh 发表于 2016-1-12 14:45
加不是难事，有了这个自动序号的宏，还要防止重复的功能吗？
你只要将语句加到chang事件中即可。

加在后面不起作用

yuanye-1160

zjdh 发表于 2016-1-12 10:17

大神，
保持以上操作不变的情况下，如若有重复编号后，把重复单元格后面一个单元格的内容复制至当前编号后面一个单元格内，怎么加代码？

yuanye-1160

zjdh 发表于 2016-1-12 10:17

已经搞定，谢谢了