如何将重复的姓名重命名

curlygoat

每个sheet里面都有工号列和姓名列，姓名列有几个是重名的，可否通过vba实现将所有sheet里面重名的员工自动变更为姓名加工号。附件已上传，请大神指点，谢谢！

Yalishanda30

附件供参考

curlygoat

Yalishanda30 发表于 2019-12-31 16:06
附件供参考

因为实际表格里有很多很多列，所以我想在原列上实现对重复值的重命名，不要在新的列上生成新的数据，是否可行。谢谢。

格物郅知

curlygoat 发表于 2019-12-31 16:32
因为实际表格里有很多很多列，所以我想在原列上实现对重复值的重命名，不要在新的列上生成新的数据，是否 ...

1. Sub 重命名()
   
2. r = Sheet1.[B1048576].End(3).Row
   
3. ReDim arr(1 To r, 1 To 2)
   
4. For i = 2 To r
   
5. x = Sheet1.Cells(i, 2)
   
6.     For j = 2 To r
   
7.     y = Sheet1.Cells(j, 2)
   
8.     If x = y And i <> j Then
   
9.         arr(j, 1) = Sheet1.Cells(j, 2) & Sheet1.Cells(j, 1)
   
10.         arr(i, 1) = Sheet1.Cells(i, 2) & Sheet1.Cells(i, 1)
    
11.     End If
    
12.     Next
    
13. Next
    
14. For i = 1 To r - 1
    
15. If arr(i, 1) <> "" Then
    
16. Sheet1.Cells(i, 5) = arr(i, 1) '暂时生成在E列供参考，Cells(i, 5)里的5是列数，你改成2就是在B列了。
    
17. End If
    
18. Next
    
19. 
    
20. End Sub
    

复制代码

Yalishanda30

curlygoat 发表于 2019-12-31 16:32
因为实际表格里有很多很多列，所以我想在原列上实现对重复值的重命名，不要在新的列上生成新的数据，是否 ...

自己把输出位置改一下就行了

abc123281

重复值重命名.rar (19.26 KB, 下载次数: 2)

2020-1-1 00:39 上传

点击文件名下载附件

curlygoat

谢谢各位大神指点，完美解决问题。