主题：[求助]请求简化代码

'''
Dim dts1 As String = "项目1、项目2、项目3、项目4、项目5、项目6"
Dim dt1 As String = "项目3"
Dim dt2 As String = "3.1%"

dts1 = dts1.Replace(dt1, dt1 & "=" & dt2)
msgbox(dts1)