Excel VBA UDF为字符串中的每个字符添加前缀

我正在寻找一种方法来创建一个UDF，我可以在其中放置一个单元格引用，该引用将在每个字符之前添加一个前缀“_”下划线

例如，在单元格中“测试”UDF结果将是“\u T\u E\u S\T”

一种简单的方法可以是

Function addUndescore(c As range)
Dim x As String
x = "_" & Mid(c, 1, 1)
For i = 2 To Len(c)
    x = x & "_" & Mid(c, i, 1)
    Next i
    addUndescore = x
End Function

与formula=addUndescore（您的ref单元格）一起使用

Function addUndescore(c As range)
Dim x As String
x = "_" & Mid(c, 1, 1)
For i = 2 To Len(c)
    x = x & "_" & Mid(c, i, 1)
    Next i
    addUndescore = x
End Function

与formula=addUndescore（您的ref单元格）一起使用

Function addUndescore(c As range)
Dim x As String
x = "_" & Mid(c, 1, 1)
For i = 2 To Len(c)
    x = x & "_" & Mid(c, i, 1)
    Next i
    addUndescore = x
End Function

与formula=addUndescore（您的ref单元格）一起使用

Function addUndescore(c As range)
Dim x As String
x = "_" & Mid(c, 1, 1)
For i = 2 To Len(c)
    x = x & "_" & Mid(c, i, 1)
    Next i
    addUndescore = x
End Function

使用公式=addUndescore（您的参考单元格）

如何：

Public Function UnderScore(sIN As String) As String
   Dim i As Long
   UnderScore = ""
   For i = 1 To Len(sIN)
      UnderScore = UnderScore & "_" & Mid(sIN, i, 1)
   Next i
End Function

那么：

Public Function UnderScore(sIN As String) As String
   Dim i As Long
   UnderScore = ""
   For i = 1 To Len(sIN)
      UnderScore = UnderScore & "_" & Mid(sIN, i, 1)
   Next i
End Function

那么：

Public Function UnderScore(sIN As String) As String
   Dim i As Long
   UnderScore = ""
   For i = 1 To Len(sIN)
      UnderScore = UnderScore & "_" & Mid(sIN, i, 1)
   Next i
End Function

那么：

Public Function UnderScore(sIN As String) As String
   Dim i As Long
   UnderScore = ""
   For i = 1 To Len(sIN)
      UnderScore = UnderScore & "_" & Mid(sIN, i, 1)
   Next i
End Function

---

稍微不同的版本：允许用户有选择地更改前缀，以便 AddPrefix（“TEST”）返回“\u T\u E\u S\T”，但 AddPrefix（“TEST”和“/”）返回“/T/E/S/T”

---

稍微不同的版本：允许用户有选择地更改前缀，以便 AddPrefix（“TEST”）返回“\u T\u E\u S\T”，但 AddPrefix（“TEST”和“/”）返回“/T/E/S/T”

---

稍微不同的版本：允许用户有选择地更改前缀，以便 AddPrefix（“TEST”）返回“\u T\u E\u S\T”，但 AddPrefix（“TEST”和“/”）返回“/T/E/S/T”

---

稍微不同的版本：允许用户有选择地更改前缀，以便 AddPrefix（“TEST”）返回“\u T\u E\u S\T”，但 AddPrefix（“TEST”和“/”）返回“/T/E/S/T”

---

几乎完美的唯一问题是它没有在第一个字符上添加“\u1”。几乎完美的唯一问题是它没有在第一个字符上添加“\u1”。几乎完美的唯一问题是它没有在第一个字符上添加“\u1”。几乎完美的唯一问题是它没有添加“\u1”在第一个字符上。或：

作为字符串的可选前缀=“\u”

或：

作为字符串的可选前缀=“\u”

或：

作为字符串的可选前缀=“\u”

或：

作为字符串的可选前缀=“\u”