Office中国论坛/Access中国论坛

标题: [求助]分段转置 [打印本页]

作者: fysh 时间: 2006-11-16 22:56
标题: [求助]分段转置
请问如何进行分段转置啊？

比如我有一列数据,有10000个值，我怎么把它变成每10个一行，1000列的数据？

望高手指点！！谢谢！

作者: cola 时间: 2006-11-16 23:02
VBA

作者: guzhen9315 时间: 2006-11-23 08:17

以下是引用fysh在2006-11-16 14:56:00的发言：

请问如何进行分段转置啊？

比如我有一列数据,有10000个值，我怎么把它变成每10个一行，1000列的数据？

望高手指点！！谢谢！

等待高手作答......

作者: 方漠 时间: 2006-11-23 21:49
假设你的数据在A列，以下代码可以帮COPY254列

*EXCEL本身行列限制的原因,一个工作表只有255列)
Sub MoveData()
Dim Irow As Long, Icol As Integer
Icol = 2 'Paste data from B column
For Irow = 11 To 1000 Step 10
Range("A" & Irow & ":A" & Irow + 9).Cut
'Range(Cells(Irow, 1), Cells(Irow + 9, 1)).Cut
Cells(1, Icol).Select
ActiveSheet.Paste
Icol = Icol + 1
Next Irow
End Sub

作者: fysh 时间: 2007-9-23 15:37
标题: 再来看，还是要谢谢
真是太牛叉了！向大家学习

作者: pureshadow 时间: 2007-9-23 17:40
如果数据在A列，
=INDIRECT("a"&((ROW(A1)-1)*10+COLUMN(A1)))
右拉10个单元格，再下拉。

作者: 方漠 时间: 2007-9-24 09:38

原帖由 pureshadow 于 2007-9-23 17:40 发表
如果数据在A列，
=INDIRECT("a"&((ROW(A1)-1)*10+COLUMN(A1)))
右拉10个单元格，再下拉。

版主公式用得出神入化，PFPF，收藏了。不过对于复杂点数据的纵向转换，可以试试以下的工具：

http://www.office-cn.net/forum.php?mod=viewthread&tid=52694&highlight=%CA%FD%BE%DD%2B%B7%BD%C4%AE

作者: pureshadow 时间: 2007-9-24 14:43

方大侠才是高手，我只不过会摆弄几个函数而已，VBA还没入门呢，惭愧ing

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)