要在没有VBA的情况下执行此操作：

使用查找和替换。
在查找内容框中，按住ALT键并键入0010（换行符的ASCII码是10 -您将看不到任何内容，但它是一个换行符）。
在替换框中，只需键入空格字符或任何分隔符。
单击Replace all按钮。

请尝试以下短宏：

Sub dural()
    Dim rng As Range
    Set rng = Selection
    rng.Replace what:=Chr(10), lookat:=xlPart, replacement:=" "
End Sub

ALT+ENTER创建一个名为vbLF的字符（用于Visual Basic换行符）。您只需将vbLF替换为空格，如下所示：

Sub test()
    Dim str As String
    str = Range("A1")
    Debug.Print str
    str = Replace(str, vbLf, " ")
    Debug.Print str
End Sub

要将其放置在循环中：

Sub test()
    dim i as integer
    Dim str As String

    for i = 1 to 10 '(however many you want, can also be dynamic - use XlUp if you want to)
       str = Range("A" & i)
       Debug.Print str
       str = Replace(str, vbLf, " ")
       Debug.Print str
    next
End Sub

在你最喜欢的浏览器上搜索一下：https://www.ablebits.com/office-addins-blog/2013/12/03/remove-carriage-returns-excel/
如果它是一个“一击”没有必要创建一个VBA宏。替换回车为空格，工作应该完成

我想这会达到你的目的：

Sub Macro1()

    Cells.Replace What:=vbLf, Replacement:=" ", LookAt:=xlPart

End Sub

我在python中有一个方法可以做到这一点：

> import csv
> 
> input_file = "string.csv" output_file = "string-deleted.csv"
> 
> with open(input_file, "r") as input_csv, open(output_file, "w",
> newline="") as output_csv:
>     reader = csv.reader(input_csv)
>     writer = csv.writer(output_csv)
>     header = next(reader)  # skip header row
>     header_index = header.index("column_name")  # find index of "NOTE_TEXT" column
>     writer.writerow(header)  # write original header row
>     for row in reader:
>         row[header_index] = " ".join(row[header_index].split())  # join all "column_name" column values
>         writer.writerow(row)  # write updated row to output file

填写输入和输出以及column_name