打开word文档，可以看到有段落标记
点击左上角的“文件”按钮，进入到文件栏目中，进行设置
进入文件之后，在左下角找到并点击“选项”，进入到word的设置界面中
进入到word选项之后，在左方的菜单栏，找到第二个选项“显示”，点击“显示”按钮
进入到显示栏目界面中，在中间，可以发现一个选项“段落标记”，去掉其前面的“√”，然后点击下方的“确定”关闭设置。
6
关闭设置设置之后，返回到word文档编辑界面，可以发现，所有的回车字符都不见了
温馨提示：答案为网友推荐，仅供参考
第1个回答 2020-12-07
这个问题用函数公式达不到，必须使用VBA。
将代码复制到原始数据所在工作表的代码区域中，运行后，会自动添加一个新表，并在新表中写出合并后的数据。
Sub 合并栏目()
Dim D, ROWi As Long, SH As Worksheet
Set D = CreateObject("Scripting.Dictionary")
ROWi = Range("A65536").End(xlUp).Row
For i = 2 To ROWi
If D.EXISTS(CStr(Cells(i, 1).Value)) Then
D(CStr(Cells(i, 1).Value)) = D(CStr(Cells(i, 1).Value)) & Chr(10) & Cells(i, 2)
Else
D(CStr(Cells(i, 1).Value)) = Cells(i, 2)
End If
Next
Set SH = ThisWorkbook.Sheets.Add
With SH
.Cells(2, 1).Resize(D.Count, 1) = Application.Transpose(D.KEYS)
.Cells(2, 2).Resize(D.Count, 1) = Application.Transpose(D.ITEMS)
.Cells(1, 1) = "栏目"
.Cells(1, 2) = "合并数据"
End With
Set D = Nothing
Set SH = Nothing
End Sub
将代码复制到原始数据所在工作表的代码区域中，运行后，会自动添加一个新表，并在新表中写出合并后的数据。
Sub 合并栏目()
Dim D, ROWi As Long, SH As Worksheet
Set D = CreateObject("Scripting.Dictionary")
ROWi = Range("A65536").End(xlUp).Row
For i = 2 To ROWi
If D.EXISTS(CStr(Cells(i, 1).Value)) Then
D(CStr(Cells(i, 1).Value)) = D(CStr(Cells(i, 1).Value)) & Chr(10) & Cells(i, 2)
Else
D(CStr(Cells(i, 1).Value)) = Cells(i, 2)
End If
Next
Set SH = ThisWorkbook.Sheets.Add
With SH
.Cells(2, 1).Resize(D.Count, 1) = Application.Transpose(D.KEYS)
.Cells(2, 2).Resize(D.Count, 1) = Application.Transpose(D.ITEMS)
.Cells(1, 1) = "栏目"
.Cells(1, 2) = "合并数据"
End With
Set D = Nothing
Set SH = Nothing
End Sub
第2个回答 2019-08-23
在两段内容中间添加&CHAR(10)&
比如你要把A1、A2合并单元格并分成两行，就可以
=A1&CHAR(10)&A2
如果添加文字的话需要把文字添加在""中，例如
="A:"&A1&CHAR(10)"B:"&A2
显示的是
A: A1单元格内容
B: A2单元格内容
比如你要把A1、A2合并单元格并分成两行，就可以
=A1&CHAR(10)&A2
如果添加文字的话需要把文字添加在""中，例如
="A:"&A1&CHAR(10)"B:"&A2
显示的是
A: A1单元格内容
B: A2单元格内容
相似回答