excel 行的名字是相同的 有多个但是同样名字后跟的数据是在一列里

来源：百度知道 编辑：UC知道 时间：2024/06/04 03:28:30
现在需要制作的表格是 行 显示的数据是名字 但是后面跟的数据要变为多列
例如
名字 数据
开发区 30
开发区 31
开发区 32
开发区 33

变为
名字 数据1 数据2 数据3 数据4
开发区 30 31 32 33
数据量非常庞大的。。不是一个。。而是有数百个

D列 E F G
名字
开发区

E2 的公式为:=IF(COLUMN(A$1)<=COUNTIF($A$1:$A$1000,$D2),INDEX($B$1:$B$1000,SMALL(IF($A$1:$A$1000=$D2,ROW($B$1:$B$1000),65536),COLUMN(A$1))),"")

向右向下拉

数组公式，需要同时按 Shint+Ctrl+Enter 才能得出结果！

复制--选择性粘贴--勾选转置--OK

数据多也无所谓，一样操作啊，全选然后开新表格转置粘贴就是了

复制——选择性粘贴——勾选转置——确定

选中数据那一列，复制，
选中其他如C1单元格，选择性粘贴，
转置勾选上

看看吧。自己再摸索一下

数据透视表

'最好还是用宏来解决。
'按Alt+F11打开VBA编辑器，点“插入”-“模块”，将下面的代码粘贴进去，关闭VBA编辑器 返回到EXCEL表格界面 ，按ALT+F8打开宏，运行其中的宏“分列”；
’sheet1是你原表的标签名，并且此表的第一行是标题，Sheet2是分开后的新表标签名，如果不同请自行修改；
'如有问题请HI我。

SUB 分列()
dim x1 ,x2, y2
x1=2
x2=1
do while sheets("sheet1").cells(x1,1)>""
if sheets("sheet1").cells(x1,1)<>sheets("sheet1").cells(x1-1,1) then
x2=x2+1
y2=2
sheets("sheet2").cells(x2,1)=sheets("sheet1").cells(x1,1)
sheets("sheet2