如何从excel中删除新行字符

Question

我有一个包含新行字符数据的excel文件。我需要删除换行符之前的值。 e.g。 这里我需要保留第一个值并删除新行后的剩余字符。我尝试了查找和替换选项，但此处前面的文本附加了第一个文本。你能帮帮我吗。

Answer 1

现在你回复了评论我误解了你的初步问题。 你应该只能将=LEFT(A1,FIND(CHAR(10),A1))放在B1中，如果那是你想要的结果吗？

鉴于你的评论，我有以下VBA可以做到，如果你有其他范围，那么随意调整那部分：

Sub PreLineFeed()
Set rng = Range("A1").CurrentRegion
Application.ScreenUpdating = False
For Each cell In rng.Cells
    cell.Value = Left(cell.Value, InStr(cell.Value, vbLf))
Next
Application.ScreenUpdating = True
End Sub

Answer 2

电子表格可能包含带有换行符（ALT + ENTER）的单元格。运行以下宏以删除换行符（工具->宏-> Visual Basic编辑器）：

' Removing tabs and carriage returns from worksheet cells
Sub CleanUp()
Dim TheCell As Range
On Error Resume Next

For Each TheCell In ActiveSheet.UsedRange
 With TheCell
 If .HasFormula = False Then
   .Value = Application.WorksheetFunction.Clean(.Value)
 End If
End With
Next TheCell
End Sub

注意-以下链接中提到了在excel中启用和创建宏的步骤

https://www.excel-easy.com/vba/create-a-macro.html