Transpose 数组行列转置的限制方式
作者:jingxian 时间:2023-11-09 08:30:45
提到数组,大家都不陌生,什么是数组行列转置呢?其实也很简单,如下图所示,行列转置就是将数组元素的存放方式进行转换,原来保存在第一列的数据,将保持在新数组的第一行,并且保持原有顺序,即6在第一个位置,8在最后一个位置。其他列依次类推。
在Excel工作表中有个强大的函数Transpose,可以直接实现数组行列转置,作为VBA开发者来说,肯定不会忘记用这个。
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
一句代码轻松实现转置,比很多程序开发语言都要简单,在本地窗口中可以看到转置效果。
这么好用的神奇代码,有时会莫名其妙的罢工,我们来看看下面的代码,运行代码将给出“类型不匹配”的错误提示,错误号为“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
转置失败的原因在于aData(1,1)的字符长度为256,Transpose所能够处理的数组元素字符长度最大为255。有时就是需要处理这样的数组元素,那么我们可以使用自定义函数进行数组的行列转置。TrasnposeArray可以实现二维数组的行列转置。其效果与Transpose函数相同。
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
补充说明一点,由于Transpose本身是工作表函数,因此大家使用时,需要注意它的另一个限制,就是被转置数组的最大行数是65,536。
标签:Transpose,数组,行列,转置
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
python避免死锁方法实例分析
2023-08-04 04:32:59
Python自动打印被调用函数变量名及对应值
2022-08-05 09:50:38
![](https://img.aspxhome.com/file/2023/8/63578_0s.png)
WorkBench管理操作MySQL
2010-10-14 14:21:00
![](https://img.aspxhome.com/file/UploadPic/201010/14/20101014143458336s.png)
安装sql server 2008 management提示已安装 SQL Server 2005 Express的解决方法
2024-01-15 12:49:03
选择什么样的DOCTYPE
2007-05-31 09:32:00
Python PyPDF2模块安装使用解析
2023-02-27 15:13:52
![](https://img.aspxhome.com/file/2023/9/100899_0s.png)
游戏的用户体验营销小札
2009-08-30 15:13:00
Python+OpenCV人脸识别签到考勤系统实现(附demo)
2022-01-25 14:05:50
![](https://img.aspxhome.com/file/2023/2/99532_0s.jpg)
mysql 8.0.12 解压版安装教程 个人亲测!
2024-01-28 10:22:05
![](https://img.aspxhome.com/file/2023/2/119702_0s.png)
mysql登录报错提示:ERROR 1045 (28000)的解决方法
2024-01-24 04:54:01
Python队列、进程间通信、线程案例
2021-10-23 16:43:03
python开发实时可视化仪表盘的示例
2022-04-23 15:33:44
![](https://img.aspxhome.com/file/2023/0/112370_0s.gif)
sqlserver 2008手工修改表结构,表不能保存的问题与解决方法
2024-01-23 03:07:26
![](https://img.aspxhome.com/file/2023/0/102060_0s.jpg)
网站开发防止中文乱码需要了解的codepage的重要性小结
2011-03-03 11:24:00
基于Python编写一个ISBN查询工具
2022-02-22 09:43:21
![](https://img.aspxhome.com/file/2023/3/83773_0s.png)
10个值得深思的PHP面试题
2023-11-15 00:35:37
![](https://img.aspxhome.com/file/2023/1/55681_0s.jpg)
小谈MySQL字符集
2009-02-13 13:30:00
如何做一个计数器并让人家申请使用?
2010-07-11 21:13:00
PHP _construct()函数讲解
2023-06-14 16:56:43
![](https://img.aspxhome.com/file/2023/3/55413_0s.png)
python判断、获取一张图片主色调的2个实例
2022-07-26 18:27:00