③配列

(ｄｉｍ　ｍｙａｒｒａｙ１　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray1 As Variant

(ｄｉｍ　ｍｙａｒｒａｙ２（）　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray2() As Variant

(ｄｉｍ　ｍｙａｒｒａｙ３（）　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray3() As Variant

(ｄｉｍ　ｉ　ａｓ　ｌｏｎｇ)

Dim i As Long

(ｄｉｍ　ｊ　ａｓ　ｌｏｎｇ)

Dim j As long

(ｄｉｍ　ｉｘ　ａｓ　ｌｏｎｇ：ｉｘ＝０)

Dim ix As long:ix=0

(ｍｙａｒｒａｙ１＝ｃｅｌｌｓ（，）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｖａｌｕｅ)

MyArray1=cells(,).CurrentRegion.Valu

(ｆｏｒ　ｉ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ１，１）)

For i=1 to Ubound(MyArray1,1)

(ｉｆ　ｍｙａｒｒａｙ１（ｉ，　）　　　　ｔｈｅｎ 　ｉｘ＝ｉｘ＋１)

If MyArray1(i, ) then ix=ix+1

(ｒｅｄｉｍ　ｐｒｅｓｅｒｖｅ　ｍｙａｒｒａｙ２（　，ｉｘ）)

Redim Preserve MyArray2( ,ix)

(ｍｙａｒｒａｙ２（１，ｉｘ）＝ｍｙａｒｒａｙ１（ｉ，　）)

MyArray2(1,ix)=MyArray1(i, )

(ｍｙａｒｒａｙ２（２，ｉｘ）＝ｍｙａｒｒａｙ１（ｉ，　）)

MyArray2(2,ix)=MyArray1(i, )

(ｅｎｄ　ｉｆ　 ｎｅｘｔ　ｉ)

End if　 Next i

(ｒｅｄｉｍ　ｍｙａｒｒａｙ３（ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，２）)

ReDim MyArray3(Ubound(MyArray2,2)

(，ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，１））)

,UBound(MyArray2,1))

(ｆｏｒ　ｉ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，２）)

For i=1 to UBound(MyArray2,2)

(ｆｏｒ　ｊ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，１）)

For j=1 to UBound(MyArray2,1)

(ｍｙａｒｒａｙ３（ｉ，ｊ）＝ｍｙａｒｒａｙ２（ｊ，ｉ）)

MyArray3(i,j)=MyArray2(j,i)

(ｎｅｘｔ　ｊ　 ｎｅｘｔ　ｉ)

Next j　 Next i

(ｒａｎｇｅ（ｃｅｌｌｓ（１，１）)

Range(cells(1,1)