[求助]分段转置

fysh

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

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

望高手指点！！谢谢！

cola

VBA

guzhen9315

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


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

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

望高手指点！！谢谢！

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

方漠

假设你的数据在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

真是太牛叉了！向大家学习

pureshadow

如果数据在A列，
=INDIRECT("a"&((ROW(A1)-1)*10+COLUMN(A1)))
右拉10个单元格，再下拉。

方漠

原帖由 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

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