Application.Transpose() 可以處理資料轉置的陣列長度 ? - Excel程式區

[發問] Application.Transpose() 可以處理資料轉置的陣列長度 ?

1^# 跳轉到 »

發表於 2014-12-4 10:47 | 顯示全部帖子

回復 1# Scott090
確實transpose有陣列大小限制，
可以自己寫轉置的Function:

Function MyTranspose(arInput)
Dim i As Long, j As Long
Dim arRetn
If LBound(arInput) <> 1 Or LBound(arInput, 2) <> 1 Then Err.Raise vbObjectError + 9999, , "The low bound of input array should be 1."
If UBound(arInput) <= 65536 And UBound(arInput, 2) <= 65536 Then
MyTranspose = Application.Transpose(arInput)
Else
If UBound(arInput, 2) = 1 Then
ReDim arRetn(1 To UBound(arInput))
For i = 1 To UBound(arInput)
arRetn(i) = arInput(i, 1)
Next
Else
ReDim arRetn(1 To UBound(arInput, 2), 1 To UBound(arInput))
For i = 1 To UBound(arInput)
For j = 1 To UBound(arInput, 2)
arRetn(j, i) = arInput(i, j)
Next
Next
End If
MyTranspose = arRetn
End If
End Function

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。