Question

我要从中删除换行符的单元格是：

(Blank line break)
Test Company
1640 Test Avenue,
New York, NY 10035
(000)123-456    
(Blank line break)

我要删除具有换行符的两行。香港专业教育学院试图使用查找和替换用替代代码0010替换换行符，但它会创建一个长字符串。

我要结束这个：

Test Company
1640 Test Avenue,
New York, NY 10035
(000)123-456

任何帮助将不胜感激。

Answer 1

类似这样的东西

Dim v
v = Trim(cell.Value)
if left(v,1)=vblf then v = right(v, len(v)-1)  'remove leading break
if right(v,1)=vblf then v = left(v, len(v)-1)  'remove trailingbreak
v = replace(v, vbLf & vbLf, vbLf)              'remove blank lines
cell.value=v

Answer 2

这是一个UDF，其工作原理类似于工作表的TRIM函数，但允许您指定要修剪的字符：

Option Explicit
Function trimCHAR(ByVal S As String, char As String)
  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 within or at end of string
        .Pattern = "^" & char
        S = .Replace(S, "") 'Remove extra chars at start of string
End With
trimCHAR = S
End Function

根据您的情况，您可以像这样使用它：

=trimCHAR(cell_ref,CHAR(10))

或者您可以将其用作对要处理的所有单元格进行迭代的宏的一部分。

这个想法来自Power Query的Text.Trim函数，该函数仅适用于字符串的开头和结尾，但允许指定任何字符串；以及Ken Puls对它的改编，它增加了工作表函数TRIM功能，即仅用单个字符替换字符串中的顺序“字符”。

如何从单元格中删除换行符，但将地址格式保留在同一单元格VBA中

2 个答案: