请教关于批量替换字符串中多个值得方法

byzhuning · 发表于 2015-7-29 11:30

请教各位大神，我们公司之前写一些业务计算规则的时候，采用了以编码代替中文的格式，来书写，例如："实际成本"="实际费用"+"实际营业成本"+"实际营业外成本"，会被写成类似"A-1"="B-1"+"B-2"+"C-1"这样的形式
现在由于业务上的易读性的要求，业务部门要求加上中文的注解，即将原来那一串代码写成的公式，再转换成中文的，请问有没有比较好的方法，先谢过各位大神示例文件见附件
PS，因为系统识别的的原因，必须保留引号

huang1314wei · 发表于 2015-7-29 13:38

Function tf(str As String)
Dim d, k, f, x%
Set d = CreateObject("scripting.dictionary")
d.Add "B-0-1", "长期存款"
d.Add "B-0-2", "短期存款"
d.Add "A-0", "实际成本"
d.Add "A-1", "实际管理费用"
d.Add "A-2", "实际主营业务成本"
d.Add "A-3", "实际营业外成本"
d.Add "A-4", "实际销售费用"
d.Add "A-5", "实际财务费用"
d.Add "A-6", "实际其他"
d.Add "A-7", "差旅费"
d.Add "A-8", "办公费"
d.Add "B-0", "银行存款"
d.Add "B-1", "现金"
k = d.keys
f = d.items
For i = 0 To d.Count - 1
If InStr(str, k(i)) Then
x = x + 1
End If
If x = 1 Then tf = Replace(str, k(i), f(i))
If x > 1 Then tf = Replace(tf, k(i), f(i))
Next
End Function

复制代码

byzhuning · 发表于 2015-7-29 14:23

本帖最后由 byzhuning 于 2015-7-29 14:28 编辑

huang1314wei 发表于 2015-7-29 13:38

多谢，不过您这个首先我好像用不起来，另外这个适用于这几个有限的，如果需要对照的比较多，是不是可以用数组的方式来做？

huang1314wei · 发表于 2015-7-29 14:37

byzhuning 发表于 2015-7-29 14:23
多谢，不过您这个首先我好像用不起来，另外这个适用于这几个有限的，如果需要对照的比较多，是不是可以用 ...

这个是自定义函数，你把你需要对照的参数添加到上面就行了，注意，长一点的公式样式写在前面，演示如下：

附件在这里：

替换演示.rar (13.92 KB, 下载次数: 182)

liu-aguang · 发表于 2015-7-29 15:19

本帖最后由 liu-aguang 于 2015-7-29 15:21 编辑

Sub test1()
arr = Sheets("对照表").Range("a1").CurrentRegion
Sheets("公式页").Activate
For i = 1 To UBound(arr)
Range("a1").CurrentRegion.Replace """" & arr(i, 1) & """", """" & arr(i, 2) & """"
Next
End Sub

复制代码

byzhuning · 发表于 2015-7-29 17:19

huang1314wei 发表于 2015-7-29 14:37
这个是自定义函数，你把你需要对照的参数添加到上面就行了，注意，长一点的公式样式写在前面，演示如下： ...

多谢多谢！我试一下！

byzhuning · 发表于 2015-7-29 17:20

liu-aguang 发表于 2015-7-29 15:19

多谢！我先试一下，太感谢了

bianyin · 发表于 2023-4-7 15:47

huang1314wei 发表于 2015-7-29 14:37
这个是自定义函数，你把你需要对照的参数添加到上面就行了，注意，长一点的公式样式写在前面，演示如下： ...

版主您好！联系不上你，我参照这个自定义函数，可是调用不了，方便指导一下吗？非常感谢！

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

[求助] 请教关于批量替换字符串中多个值得方法