excel中矩阵转换程序

把这个2个自定义函数放入模块
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

A1:C4的数字是:
1 2 3
4 5 6
7 8 9
10 11 12

选中E1:E12,填入公式:
=change(A1:C4)
ctrl+shift+enter
得到结果:
1
2
3
4
5
6
7
8