excel把多行数据合并到一行并打竖排列

如图~结果可以用什么工式批量得出结果？？？

2024-11-21 22:43:33

推荐回答（2个）

回答1：

我给你编一个自定义公式，按alt+f11进入VBE界面，然后插入-》模块，把下面的代码复制粘贴到右边的空白处，保存。
用的时候在结果的单元格里输入 =xxx()
注意：单元格格式设置里自动换行勾上

Function xxx()
Dim i%
With Application.ActiveCell
For i = 1 To .Row - 1
xxx = xxx & ThisWorkbook.ActiveSheet.Cells(i, .Column).Value & Chr(10)
Next i
.WrapText = True
End With
End Function

回答2：

b4输入=b1&b2&b3
公式右拉
设定b4:d4的单元格格式>对齐>方向》文本（点击时钟模样左边的竖框）