如何用透视表实现行转列

zlrsxy

yangchengjiang 发表于 2015-1-29 12:56
好的，非常感谢！请问能否提供VBA脚本啊，其实用何种方法无所谓的。
另外，你的公式“=INDEX($D:$M,INT( ...

这个  比较复杂  如果没啥基础。。。感觉还是用sql吧  VBA  我会一点  只是没时间。。。

yangchengjiang

zlrsxy 发表于 2015-1-29 13:27
这个  比较复杂  如果没啥基础。。。感觉还是用sql吧  VBA  我会一点  只是没时间。。。

SQL如何操作呢，能否录个动画的教程啊~~~~~~

吴潮同

所用代码：

1. select * from (select f1&f11 as 类别,f2 as 速率,f3 as 成员个数,f4  as 网元名称 from [sheet1$a3:k8] union all  select f1&f11,f2,f3,f5  from [sheet1$a3:k8] union all  select f1&f11,f2,f3,f6  from [sheet1$a3:k8] union all  select f1&f11,f2,f3,f7  from [sheet1$a3:k8] union all  select f1&f11,f2,f3,f8  from [sheet1$a3:k8] union all  select f1&f11,f2,f3,f9  from [sheet1$a3:k8] union all  select f1&f11,f2,f3,f10  from [sheet1$a3:k8]) where 网元名称  order by 类别

复制代码

过程动画

yangchengjiang

不知为啥，无法回复，感谢“吴潮同”的无私帮助！！！太感谢了！

yangchengjiang

吴潮同 发表于 2015-1-29 13:42
所用代码：
过程动画

非常好！！！！感谢你的无私帮助！！！我也再好好学学

yangchengjiang

zlrsxy 发表于 2015-1-29 13:27
这个  比较复杂  如果没啥基础。。。感觉还是用sql吧  VBA  我会一点  只是没时间。。。

谢谢提供思路！

zlrsxy

yangchengjiang 发表于 2015-1-29 13:38
SQL如何操作呢，能否录个动画的教程啊~~~~~~

SQL的 有人做动画了   我做了个VBA的 查收吧
  数据在sheet1里面
整理好后的在sheet2里面

代码Sub aa()
Sheets(2).cells.clear
With Sheets(2)
.Cells(1, 1) = "类别"
.Cells(1, 2) = "速率"
.Cells(1, 3) = "成员个数"
.Cells(1, 4) = "网元名称"
Dim i As Integer, a  As Integer, b  As Integer, c  As Integer
Dim arr()
c = Sheets(1).[c65536].End(xlUp).Row() - 2
For i = 1 To c
a = Sheets(1).Cells(i + 2, 3)
ReDim arr(a)
For j = 1 To a
arr(j) = Sheets(1).Cells(i + 2, 3 + j)
Next
b = .[d65536].End(xlUp).Row()
.Cells(b + 1, 2) = "GE"
.Cells(b + 1, 3) = a
For k = 1 To a
.Cells(b + 1, 4) = arr(k)
.Cells(b + 1, 1) = "环" & i
b = b + 1
Next
Next
End With
End Sub
行转列-透视表.rar (19.7 KB, 下载次数: 30)

2015-1-29 23:00 上传

点击文件名下载附件
更新

少了个人员个数  红色位置增加代码  在公司 不能上传附件 需要的话晚上再说

yangchengjiang

zlrsxy 发表于 2015-1-29 22:54
SQL的 有人做动画了   我做了个VBA的 查收吧
  数据在sheet1里面
整理好后的在sheet2里面

好的啊！非常感谢！！！这么晚了，太谢谢你了，早点休息，晚安~~~

zlrsxy

yangchengjiang 发表于 2015-1-29 23:01
好的啊！非常感谢！！！这么晚了，太谢谢你了，早点休息，晚安~~~

更新了一键生成  重新下载附件吧

mjjsum

行转列-透视表.rar (14.66 KB, 下载次数: 43)

2015-1-30 10:00 上传

点击文件名下载附件

原表稍作改动，标黄色部分