如何实现我想要的结果

xsz521 · 发表于 2023-3-14 16:20

本帖最后由 xsz521 于 2023-3-14 16:23 编辑

原内容

我想要的内容

就是只把小号字删掉，其他的内容不变，包括颜色，不太会写，求助。

mmwwdd · 发表于 2023-3-14 16:22

不会日语,帮不了你

xsz521 · 发表于 2023-3-14 16:24

内容是日文的不过我处理的内容只是把小字号的灰色字删掉，其他的都不变包括颜色字号什么的。

ykcbf1100 · 发表于 2023-3-14 16:24

不太会写可不行啊，如果就你附件那样，只要查找替换一下就行了。

xsz521 · 发表于 2023-3-14 16:25

mmwwdd 发表于 2023-3-14 16:22
不会日语,帮不了你

还是谢谢你！

xsz521 · 发表于 2023-3-14 16:26

灰色的字的内容不是固定的，我只是随便找的一个

xsz521 · 发表于 2023-3-14 16:28

ykcbf1100 发表于 2023-3-14 16:24
不太会写可不行啊，如果就你附件那样，只要查找替换一下就行了。

我只是选取了很少的一部分，有很多中情况，不过都是处理9以下的灰色字，其他的不变，包括颜色。我写的可以去掉字，不过有的颜色也变了。

ykcbf1100 · 发表于 2023-3-14 16:32

xsz521 发表于 2023-3-14 16:28
我只是选取了很少的一部分，有很多中情况，不过都是处理9以下的灰色字，其他的不变，包括颜色。我写的可 ...

所以你要写清楚，让别人知道怎么去写代码。

nihao123456789 · 发表于 2023-3-14 16:33

楼主，你试着总结一下。是不是括号里面的内容删除掉？除了MPa,其他代括号的全部删掉。如果是这样的话，直接用替换就可以了。

cjc209 · 发表于 2023-3-14 16:38

Sub 正则替换()
Set regx = CreateObject("vbscript.regexp")
With regx
      .Global = True '全局模式
      .IgnoreCase = True '大小写不区分设置
      .Pattern = "（.+）"
End With
For Each aaa In [b1:b17]
      aaa.Offset(0, 0) = regx.Replace(aaa, "")
Next
End Sub

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

[求助] 如何实现我想要的结果