换行符是alt+回车,或者写公式的话用char(10),公式改成=A1&CHAR(10)&B1等,太长不写了
在C1单元格输入
=A1&CHAR(10)&A2&CHAR(10)&A3&CHAR(10)&A4
在“设置单元格格式”“对齐”中勾选“自动换行”。
=Clean(单元格)就完事
表格中ATL + ENTER
vba中chr(10)
Sub 合并()
Dim str As String
For Each cell In Range("a1:a" & Cells(Rows.Count, 1).End(3).Row)
If cell <> "" Then
str = str & cell & Chr(10)
[b1] = str
End If
Next
End Sub
=A1&CHAR(10)&A2&CHAR(10)&A3&CHAR(10)&A4
别忘了,需要设置单元格为自动换行。