Transpose如何限制數(shù)組行列轉(zhuǎn)置-創(chuàng)新互聯(lián)

這篇文章主要為大家展示了“Transpose如何限制數(shù)組行列轉(zhuǎn)置”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“Transpose如何限制數(shù)組行列轉(zhuǎn)置”這篇文章吧。

堅(jiān)守“ 做人真誠(chéng) · 做事靠譜 · 口碑至上 · 高效敬業(yè) ”的價(jià)值觀(guān)，專(zhuān)業(yè)網(wǎng)站建設(shè)服務(wù)10余年為成都成都紙箱小微創(chuàng)業(yè)公司專(zhuān)業(yè)提供企業(yè)網(wǎng)站建設(shè)營(yíng)銷(xiāo)網(wǎng)站建設(shè)商城網(wǎng)站建設(shè)手機(jī)網(wǎng)站建設(shè)小程序網(wǎng)站建設(shè)網(wǎng)站改版，從內(nèi)容策劃、視覺(jué)設(shè)計(jì)、底層架構(gòu)、網(wǎng)頁(yè)布局、功能開(kāi)發(fā)迭代于一體的高端網(wǎng)站建設(shè)服務(wù)。

提到數(shù)組，大家都不陌生，什么是數(shù)組行列轉(zhuǎn)置呢？其實(shí)也很簡(jiǎn)單，如下圖所示，行列轉(zhuǎn)置就是將數(shù)組元素的存放方式進(jìn)行轉(zhuǎn)換，原來(lái)保存在第一列的數(shù)據(jù)，將保持在新數(shù)組的第一行，并且保持原有順序，即6在第一個(gè)位置，8在最后一個(gè)位置。其他列依次類(lèi)推。

在Excel工作表中有個(gè)強(qiáng)大的函數(shù)Transpose，可以直接實(shí)現(xiàn)數(shù)組行列轉(zhuǎn)置，作為VBA開(kāi)發(fā)者來(lái)說(shuō)，肯定不會(huì)忘記用這個(gè)。

Sub Demo1()
  Dim aData(1 To 3, 1 To 2)
  For i = 1 To 3
    For j = 1 To 2
      aData(i, j) = i + j * 5
    Next j
  Next i
  aTrans = Application.Transpose(aData)
  Debug.Print UBound(aData, 1) & " x "; UBound(aData, 2)
  Debug.Print "=>>"
  Debug.Print UBound(aTrans, 1) & " x "; UBound(aTrans, 2)
End Sub

一句代碼輕松實(shí)現(xiàn)轉(zhuǎn)置，比很多程序開(kāi)發(fā)語(yǔ)言都要簡(jiǎn)單，在本地窗口中可以看到轉(zhuǎn)置效果。

這么好用的神奇代碼，有時(shí)會(huì)莫名其妙的罷工，我們來(lái)看看下面的代碼，運(yùn)行代碼將給出“類(lèi)型不匹配”的錯(cuò)誤提示，錯(cuò)誤號(hào)為“13”。

Sub Demo2()
  Dim aData(1 To 3, 1 To 2)
  For i = 1 To 3
    For j = 1 To 2
      aData(i, j) = i + j * 5
    Next j
  Next i
  aData(1, 1) = Application.Rept("$", 256)
  aTrans = Application.Transpose(aData)  ' Runtime error "13"
  Debug.Print UBound(aData, 1) & " x "; UBound(aData, 2)
  Debug.Print "=>>"
  Debug.Print UBound(aTrans, 1) & " x "; UBound(aTrans, 2)
End Sub

轉(zhuǎn)置失敗的原因在于aData(1,1)的字符長(zhǎng)度為256，Transpose所能夠處理的數(shù)組元素字符長(zhǎng)度大為255。有時(shí)就是需要處理這樣的數(shù)組元素，那么我們可以使用自定義函數(shù)進(jìn)行數(shù)組的行列轉(zhuǎn)置。TrasnposeArray可以實(shí)現(xiàn)二維數(shù)組的行列轉(zhuǎn)置。其效果與Transpose函數(shù)相同。

Sub Demo3()
  Dim aData(1 To 3, 1 To 2)
  For i = 1 To 3
    For j = 1 To 2
      aData(i, j) = i + j * 5
    Next j
  Next i
  aData(1, 1) = Application.Rept("$", 256)
  aTrans = TransposeArray(aData)
  Debug.Print UBound(aData, 1) & " x "; UBound(aData, 2)
  Debug.Print "=>>"
  Debug.Print UBound(aTrans, 1) & " x "; UBound(aTrans, 2)
End Sub
 
Function TransposeArray(arrA) As Variant
  Dim aRes()
  If VBA.IsArray(arrA) Then
    ReDim aRes(LBound(arrA, 2) To UBound(arrA, 2), LBound(arrA, 1) To UBound(arrA, 1))
    For i = LBound(arrA, 1) To UBound(arrA, 1)
      For j = LBound(arrA, 2) To UBound(arrA, 2)
        aRes(j, i) = arrA(i, j)
      Next
    Next
    TransposeArray = aRes
  End If
End Function

補(bǔ)充說(shuō)明一點(diǎn)，由于Transpose本身是工作表函數(shù)，因此大家使用時(shí)，需要注意它的另一個(gè)限制，就是被轉(zhuǎn)置數(shù)組的大行數(shù)是65,536。

以上是“Transpose如何限制數(shù)組行列轉(zhuǎn)置”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)成都網(wǎng)站設(shè)計(jì)公司行業(yè)資訊頻道！

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線(xiàn)，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性?xún)r(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專(zhuān)為企業(yè)上云打造定制，能夠滿(mǎn)足用戶(hù)豐富、多元化的應(yīng)用場(chǎng)景需求。

網(wǎng)頁(yè)題目：Transpose如何限制數(shù)組行列轉(zhuǎn)置-創(chuàng)新互聯(lián)
鏈接分享：http://muchs.cn/article10/dgicgo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、網(wǎng)站維護(hù)、用戶(hù)體驗(yàn)、企業(yè)網(wǎng)站制作、云服務(wù)器、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀(guān)點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)