1.数据太大，转置不了怎么办??
2.不转置不能用数据透视表???
3.问题其实是:
有32组（每组12列，每列两万多行数据），现在我要保留两万多行，然后将32组的12列求平均（最终数据12列），求大神们帮帮我

前一阵子电脑崩溃了，现在用个excel都黑屏，哭晕

还有五天就要提交毕业论文了

现在脑子短路，无法前进了

average

上图

求平均是什么意思，举个列子

大概是这样

贴吧大把大神都会的，电脑不在身边，你不急的话，明天帮你解决。

Sub pj()
Dim zu, hang As Integer
Dim i, j, k As Integer
Dim av As Double
zu = 32 '32组
hang = 20000 '20000行数据
For i = 2 To hang + 1 '行
For j = 1 To 12 '每行12个平均值需要计算
av = 0
For k = 1 To zu 'zu个数据求平均值
av = av + CDbl(Cells(i, (k - 1) * 12 + j))
Next k
av = av / zu
Cells(i, zu * 12 + j) = av
Next j
Next i
End Sub