VBA仅替换开头和结尾的换行符

这是一个trimCHAR与ExcelTRIM功能类似的功能，不同之处在于您可以指定要TRIM的字符。

它会删除所有的开头和结尾char，以及任何一倍 char的字符串中（留下一个char字符串中，如TRIM用空格一样）

Function trimCHAR(ByVal S As String, char As String)
'similar to worksheet TRIM function except can specify character(s) to TRIM
  Dim RE As Object
  Dim I As Long

Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .multiLine = True

'need to do separately, otherwise multiple chars within will
'be removed
        .Pattern = char & "*$"
        S = .Replace(S, "") 'Remove extra chars at end of string
        .Pattern = char & "*([^" & char & "]" & char & ")*"
        S = .Replace(S, "$1") 'Remove extra chars at start of string or within
End With
trimCHAR = S

End Function

原版的

工作表上的用法： =trimCHAR(cell_ref,CHAR(10))

在宏中，您可以使用 =trimChar(myStringVariable, vblf)

结果