删除重复￥符，只保留最右侧一个￥

Qs18 · 发表于 2024-9-25 16:56

试试..........

Qs18 · 发表于 2024-9-25 16:58

试试...........

limonet · 发表于 2024-9-25 18:26

wrynata 发表于 2024-9-25 16:35
乱码

excel版本的问题，用VBA。

gwjkkkkk · 发表于 2024-9-25 19:13

Option Explicit
Sub TEST1()
With CreateObject("VBScript.RegExp")
      .Pattern = "￥[\d\.]+"
      If .test([D3].Value) Then
         [d9].Value = .Execute([D3].Value)(0)
      End If
End With
End Sub

wrynata · 发表于 2024-9-25 20:43

gwjkkkkk 发表于 2024-9-25 19:13
Option Explicit
Sub TEST1()
With CreateObject("VBScript.RegExp")

太棒了，问题解决。

sunya_0529 · 发表于 2024-9-26 11:37

本帖最后由 sunya_0529 于 2024-9-26 11:42 编辑

wrynata 发表于 2024-9-25 16:35
乱码

新版函数用不了的话，试试——

饮冰e士 · 发表于 2024-9-26 13:46

wrynata · 发表于 2024-9-26 14:42

饮冰e士发表于 2024-9-26 13:46

谢谢，问题已解决。

		自动登录	找回密码
密码			免费注册

[已解决] 删除重复￥符，只保留最右侧一个￥

评分