去除条码最前面的 ' 使用vba代码实现

hongsonjj

去除条码最前面的 '
1、2行是数值格式
3、4行是常规格式，前面加了个单引号
最终要A5单元格那样
文本格式，而且不要前面的'
只要vba代码实现

wodewan

附件供参考。。。。

YZC51

请参考
Sub test()
Range("a:a").Replace "‘", "'"
Range("a:a").Replace "’", "'"
Columns(1).NumberFormatLocal = "@"
End Sub

taller

参考代码

1. Sub DEMO()
   
2.     Dim arr
   
3.     With [a1].CurrentRegion
   
4.         .NumberFormatLocal = "@"
   
5.         .Replace "¡ˉ", ""
   
6.         .Replace "¡®", ""
   
7.         .Value = .Formula
   
8.     End With
   
9.         
   
10. End Sub

复制代码

hongsonjj

YZC51 发表于 2020-3-12 17:07
请参考
Sub test()
Range("a:a").Replace "‘", "'"

hongsonjj

taller 发表于 2020-3-12 23:39
参考代码

hongsonjj

wodewan 发表于 2020-3-12 15:47
附件供参考。。。。

你的回答结果跟4楼的一样，不是完美解决。
附件的单引号我错误的用了中文输入法所以误导了你的回答，
但是你的回答是最快的，我马上就使用了。
同时你的回答我能看明白，4楼的不知所以然，最后就你胜出了。