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

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

2 个答案: