国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

：一維轉(zhuǎn)二維。

                 Sub t9()
                      arr = Array(1, 35, "a", 4, 13, "b")
                      arr1 = Application.Transpose(arr)
                      MsgBox arr1(2, 1) ‘轉(zhuǎn)換后的數(shù)組是1列多行的二維數(shù)組
                 End Sub

            2、二維數(shù)組轉(zhuǎn)一維。

                  Sub t2()
                       arr2 = Range("A1:B4")
                       arr3 = Application.transpose(Application.Index(arr2, , 2)) '取得arr2第2列數(shù)據(jù)并轉(zhuǎn)置成1維數(shù)組
                      MsgBox arr3(2,)
                  End Sub     

               注：在轉(zhuǎn)置時(shí)只有1列N行的數(shù)組才能直接轉(zhuǎn)置成一維數(shù)組

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。