[已解决]能否用VBA在姓名后面加上编号的后三位数字

诺然偶然

最近学习尽头比较足，感谢各路大神指点

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-3-10 22:45

1. Sub test()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     For i = 2 To UBound(arr)
   
4.         arr(i, 2) = arr(i, 2) & Right(arr(i, 1), 4)
   
5.     Next
   
6.     Sheet1.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
   
7. End Sub

复制代码

跳转到最佳答案楼层

苏子龙

=B2&RIGHT(A2,4)，你最后一个隐藏字符

苏子龙

或者=B2&RIGHT(CLEAN(A2),3)，清楚隐藏字符后处理

望帝春心

1. Sub test()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     For i = 2 To UBound(arr)
   
4.         arr(i, 2) = arr(i, 2) & Right(arr(i, 1), 4)
   
5.     Next
   
6.     Sheet1.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
   
7. End Sub

复制代码

望帝春心

1. 参考附件

复制代码

诺然偶然

苏子龙 发表于 2017-3-10 20:32
或者=B2&RIGHT(CLEAN(A2),3)，清楚隐藏字符后处理

十分感谢，这几天比较忙，才看到，但是还是想学习一下VBA

诺然偶然

望帝春心 发表于 2017-3-10 22:45

十分感谢