无法在excel中删除第一个和最后一个换行符吗？

Question

我正在尝试从excel单元中删除第一个和最后一个换行符，但我卡住了。我无法公开共享excel的数据，因此为了理解，我给出了一些测试示例，如下所示。在第一个和最后一个位置有一些随机的换行符。

“

测试1测试2测试3“

“测试1测试2测试3

“

“测试1测试2测试3“

“

测试1测试2测试3

“

我正在尝试如下输出：

“测试1测试2测试3“

“测试1测试2测试3“

“测试1测试2测试3“

“测试1测试2测试3“

上面的输出将删除所有空白行和换行符。可以在excel或VBA中使用吗？

Answer 1

您可以通过换行符分割字符串，然后将它们连接起来。诀窍是您需要从遍历中排除第一和最后一项，并从字符串中排除最后一个中断：

Sub RemoveExtraBreaks()
    '// Assume strings are in column A
    Dim rw&, i&, s$, arr As Variant
    For rw = 1 To 4
        '// Split string by linebreak
        arr = Split(Cells(rw, "A"), Chr(10))
        s = ""
        '// Concatenate strings which length is more than 1:
        For i = LBound(arr) + 1 To UBound(arr) - 1
            If Len(arr(i)) > 0 Then
                s = s & arr(i) & Chr(10)
            End If
        Next
        '// Exclude last linebreak from a string
        Cells(rw, "B") = """" & Left$(s, Len(s) - 1) & """"
    Next
End Sub