怎样把一个数组的列变成行，行变成列

[maoqingfeng]

或者怎样吧excel中第一行的数据写到第一列，第二行写到第二列,...

[maoqingfeng]

csdn人都死光啦

[liad]

Excel 2000表格行列转置

--------------------------------------------------------------------
http://tech.sina.com.cn 2000/11/30 中国电脑教育报 CCE
　　
　　在使用Excel 2000时，你编辑一张表格后，发现该表格列数太多，而行数太少，这时你或许希望该表格的行列互换，以便方便地打印在A4纸上。以下的方法，让你在Excel中实现表格的行列转置，即列变为行，行变为列。具体过程是：

　　1、启动Excel，打开需要的工作簿，在当前工作表中，选中需要进行行列转换的单元格区域，如A1:X6。

　　2、单击“编辑”菜单中的“复制”命令。

　　3、单击要存放转置表区域的左上角单元格，如A7。

　　4、单击“编辑”菜单中的“选择性粘贴”命令，系统“选择性粘贴”对话框，选中“转置”复选框。

　　5、单击[确定]按钮，则行列转置后的表格出现在A7:F30单元格区域。现在把A1:X6单元格区域删除，则完成了表格的行列转置。



录制宏，看VBA代码有
Sub 宏1()
'
' 宏1 Macro
' liad 记录的宏 2002-6-7
'

'
Range("A1:C2").Select
Selection.Copy
Range("D11").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
End Sub

[hengxin54]

首先定义两个数组，一个保存原来的数据，一个用来保存欲转换的数据,如果数据大小为a(x,y):
dim i as integer,j as integer
dim b(x,y)
for i=0 to x
for j=0 to y
b(j,i)=a(i,j)
next j
next i
转换成功，