excel - 我需要删除excel单元格中的空白行

Question

我必须清楚我不想删除所有换行符 - 我只想删除空行。例如：

*有一个地方人行道尽​​头在街道开始之前，那里的草变得柔软而洁白，

太阳在那里燃烧着深红色的光芒， 月亮鸟在那里休息

在薄荷风中冷却。 *

想象一下，上述所有文本都在一个单元格中。我只想删除这两个空行。任何人都可以帮忙吗？

Answer 1

VBA解决方案：

Sub DoubleReturn()
    Range("A1").Select
    Selection.Replace What:="" & Chr(10) & "" & Chr(10) & "", Replacement:="" & Chr(10) & ""
End Sub

---

非VBA解决方案：

在您的查找框中： ALT+0010（两次）用于两个回车。

在您的替换框中：ALT+0010（一次）

Answer 2

Orbling，Excel 确实有一些正则表达式支持，你只需要一些疯狂的 VBA 来使用它。我对此进行了一些测试，它似乎有效。

只需将其放入一个模块中，您就应该能够使用像=ClearLineBreaks(A1).

Function ClearLineBreaks(txt As String)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        .Pattern = "(\r|\n) ?"
        .Global = True
        ClearLineBreaks = Trim(.Replace(txt, " "))
    End With
End Function