excel问题 新手拜谢

[kgbkiller]

有一个EXCEL表格：
111 名称一 2
222 名称一 2
333 名称一 2
444 名称二 1
555 名称二 1
如何转换为
名称一 111 222 333 2 2 2
名称二 444 555 1 1
请各位高手指点 谢谢了

[evilboy_huang]

数据透视表

[ACMAIN_CHM]

用VBA比较容易实现。

QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》

[txz2003]

临时简单编写了一个VBA，希望对你有所帮助

点击“工具－宏－visual basic编辑器”，双击左侧“ThisWorkbook”，在右侧窗口粘贴如下代码：

Public Sub xx()
Dim ss, s1, s2 As String
Dim bh, eh, i As Integer
'为简化程序，使用之前须对“名称一”所在列进行排序
'bh,eh 分别为“名称一”的起始行号
bh = 1
eh = 3

ss = Sheet1.Cells(bh, 2)
s1 = ""
s2 = ""
For i = bh To eh
s1 = s1 & "," & Sheet1.Cells(i, 1)
s2 = s2 & "," & Sheet1.Cells(i, 3)
Next
ss = ss & s1 & s2
'将得到的结果填写到sheet2
Sheet2.Cells(1, 1) = ss

'bh,eh 分别为“名称二”的起始行号，以后类推
bh = 4
eh = 5

ss = Sheet1.Cells(bh, 2)
s1 = ""
s2 = ""
For i = bh To eh
s1 = s1 & "," & Sheet1.Cells(i, 1)
s2 = s2 & "," & Sheet1.Cells(i, 3)
Next
ss = ss & s1 & s2
'将得到的结果填写到sheet2
Sheet2.Cells(2, 1) = ss
End Sub


调出窗体工具栏，在sheet1表中某个单元格插入一个按钮，指定宏名选择下方的 xx,确定后，点击该按钮，可将希望转换的数据填充到sheet2