怎么让excel表格内容在一行

1.Excel中如何把几列数据的内容并到一行内

在表格打开状态按ALT+F11，插入----模块，复制以下代码进去，在关掉代码窗口。

Function abc(a As Range, b As Range, c As String)

Dim t As String

'如果a与b的区域大小不同，就显示“错误”

If a.Rows.Count <> b.Rows.Count Then abc = "错误"： Exit Function

'在区域a是循环

For i = 1 To a.Rows.Count

'如果在a中找到与c相同的值，就把同一行中的b的内容提取出来，存入变量t中。

If a.Cells(i, 1) = c Then t = t & " " & b.Cells(i, 1)

Next

'将变量的值赋给自定义函数

abc = t

End FunctionD2单元格=abc($A$2:$A$5000,$B$2:$B$5000,C2)