使用Macro在单元格的字符串中间添加字符串

Question

我想使用宏在单元格中的现有字符串中添加特定字符串。

例如：

将123456789重命名为1234XXX56789
通过添加XXX和宏。

Answer 1

有效使用Left，Mid，Right功能可以满足您的要求。

Sub StringReplace()
Name = InputBox("Enter the Original String")
Strng = InputBox("Enter the String to Replace")
Var = InputBox("Enter the character position of string replacement begins ")
Name = Left(Name, Var) & Strng & Mid(Name, Var + 1)
MsgBox Name
End Sub