剔除￥符号

ddz79101

无关岁月 发表于 2024-11-5 22:22

老师！谢谢！成功了

无关岁月

ddz79101 发表于 2024-11-5 22:42
老师！没有反应。是这样吗Pattern = "^."

对呀，怎么会没反应呢？

ddz79101

无关岁月 发表于 2024-11-5 22:50
对呀，怎么会没反应呢？

老师！没有看见在边上！抱歉！

ykcbf1100

用公式最简单

ykcbf1100

正则法。。。

ykcbf1100

参与一下。。。

xlj310

.value=.value 剩下的就只是个格式问题了。 如果是取值运算，直接不影响了。

f8b1987

1. Sub 替换符号()
   
2.     Dim i As Long, arr
   
3.     arr = Range("E1:E10")
   
4.     For i = 1 To 10
   
5.             arr(i, 1) = Replace(arr(i, 1), ChrW(165), "")
   
6.     Next i
   
7.     Range("G1").Resize(UBound(arr), 1) = arr
   
8. End Sub

复制代码

表格中使用UNICODE函数获取字符串代码165


使用ChrW(165)函数表示字符串即可

ddz79101

ykcbf1100 发表于 2024-11-6 06:58
正则法。。。

谢谢老师！运行成功！

ddz79101

ykcbf1100 发表于 2024-11-6 06:52
用公式最简单

谢谢老师！收藏了。