Vba 字符串操作-用给定的限制替换字符串

我想通过指定起始和结束位置，用给定字符串替换字符串

例如：

var1 = "REPLACE THIS IS STRING SAMPLE TEXT"
var2 = "REWRITE"

在var1中，将位置1到8的字符串替换为var2

真的有什么帮助吗

谢谢：）

试试这个

var1 = Replace(var1, Mid(var1, 1, 8), var2)

试试这个

var1 = Replace(var1, Mid(var1, 1, 8), var2)

你可以做：

var1 = "REPLACE THIS IS STRING SAMPLE TEXT"
var2 = "REWRITE"

Dim str As String

str = Mid(var1, 8, Len(var1))
str = var2 & str

你可以做：

var1 = "REPLACE THIS IS STRING SAMPLE TEXT"
var2 = "REWRITE"

Dim str As String

str = Mid(var1, 8, Len(var1))
str = var2 & str

---

Mid

非常有趣

Sub MidDemo()
var1 = "REPLACE THIS IS STRING SAMPLE TEXT"
var2 = "REWRITE"

Mid(var1, 1, 8) = var2
Debug.Print var1
''Result: REWRITE THIS IS STRING SAMPLE TEXT
End Sub

---

Mid

非常有趣

Sub MidDemo()
var1 = "REPLACE THIS IS STRING SAMPLE TEXT"
var2 = "REWRITE"

Mid(var1, 1, 8) = var2
Debug.Print var1
''Result: REWRITE THIS IS STRING SAMPLE TEXT
End Sub