可以将第二列中,你所需要放在一行的那几项合并单元格,在从单元格设置里对齐选项中选择自动换行,或者把第二列托宽,直到全部显示出来,他们就在一行了,望采纳,亲
VBA自定义函数法:假设数据在工作表Data中,则插入模块输入一个自定义函数:
Function CombineString(strA As String) As String
Dim sht As Worksheet, R As Long, I As Long
Set sht = Sheets("Data")
With sht
R = .Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To R
If CStr(.Range("A" & I).Value) = strA Then CombineString = CombineString & .Range("B" & I).Text & ";"
Next
End With
Set sht = Nothing
End Function
然后,用数据透视表取单号,再用这个公式。比如把分类出来的单号放在A列,从A2开始,则:
C2= CombineString(A2),然后复制粘贴公式即可