求助高手：EXCEL数据转化

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

怎么把一个矩阵中的数据，变换成一列或一行数据。数据量比较大，有没有简单的技巧？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：excel数据 EXCEL 求助高手 xcel exce 求助高手

最好百度，，，，

Excel中插入自定义函数的方法
1）通过菜单命令“工具->宏->Visual Basic编辑器”或快捷键“Alt+F11”，调出Visual Basic编辑窗口。
2）在Visual Basic编辑窗口中，通过菜单命令“插入->模块“，插入一个新的模块。
3）在”代码窗口“中输入代码。
4）保存，关闭窗口。



矩阵向量互转函数

Function Change(Rng As Range)
Dim A(), Rg As Range
Dim I As Integer
ReDim A(1 To Rng.Areas(1).Cells.Count)
For Each Rg In Rng.Areas(1).Cells
I = I + 1
A(I) = Rg.Value
Next
Change = Application.WorksheetFunction.Transpose(A)
End Function

'*************************************************
Function Change2(Rng As Range, R As Integer, C As Integer)
Dim A()
Dim I As Integer, J As Integer, K As Integer
ReDim A(1 To R, 1 To C)
For I = 1 To R
For J = 1 To C
K = K + 1
A(I, J) = Rng.Columns(1).Cells(K)
Next
Next
Change2 = A
End Function



应用实例
将上述两个函数放入插入Excel中，并在在A1:C2中的输入如下数据:
1 2
3 4



1）将A1:C2转换成向量
选中E1:E4,输入公式: =change(A1:C2)，按下 ctrl+shift+enter快捷键执行命令，得到结果:
1
2
3
4



2）将E1:E4转换为矩阵
选中F1:G2,输入公式: =change2(E1:E4,2,2) 按下 ctrl+shift+enter快捷键执行命令，得到结果：
1 2
3 4

thanks for your sharing