Transpose 数组行列转置的限制方式
作者:jingxian 发布时间:2023-11-09 08:30:45
标签:Transpose,数组,行列,转置
提到数组,大家都不陌生,什么是数组行列转置呢?其实也很简单,如下图所示,行列转置就是将数组元素的存放方式进行转换,原来保存在第一列的数据,将保持在新数组的第一行,并且保持原有顺序,即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。
0
投稿
猜你喜欢
- 前言Matplotlib 可能是 Python 2D-绘图领域使用最广泛的套件。它能让使用者很轻松地将数据图形化,并且提供多样化的输出格式。
- 一、pyc文件我们开发一个python脚本,文件的后缀为.py。如果运行这个py文件,Python内部会先将源码文件(.py文件)编译成字节
- 用Python画一个平面的太阳系得到一些朋友的欣赏,然后有同学提出了绘制三维太阳系的要求。从Python画图的角度来说,三维太阳系其实并不难
- 问题描述:最近用jstree遇到一个问题,父节点选中时,被禁用的子节点也会选中如下解决方案:1、 将jstree升级到最新的版本,v3.3.
- 引言层次聚类是一种构建聚类层次结构的聚类算法。该算法从分配给它们自己的集群的所有数据点开始。然后将两个最近的集群合并到同一个集群中。最后,当
- 1、chr(i)chr()函数返回ASCII码对应的字符串。>>> print chr(65)A>>>
- PyQt5 事件处理机制PyQt为事件处理提供了两种机制:高级的信号与槽机制,以及低级的事件处理机制。信号与槽可以说是对事件处理机制的高级封
- 当你打开一个.py文件时,经常会在代码的最下面看到if __name__ == '__main__':,现在就来介 绍一下它
- 程序开发一定要有开发工具,网上找了很多关于Python的开发工具,大神们在用记事本和VIM,小白都用PyCharm,我是属于小白一类的当然也
- 如何用Perl脚本操作系统环境变量呢?想必很多朋友马上就会想到Perl中提供的$ENV这个特殊的哈希变量,对,在$ENV中完全可以获取到一些
- 本文讲述了python在Windows下安装setuptools(easy_install工具)的方法。分享给大家供大家参考,具体如下:【题
- 由于GIL(Global Interpreter Lock)的存在使得在同一时刻Python进程只能使用CPU的一个核心,也就是对应操作系统
- 一、split()函数的简单应用1.join()函数Python join() 方法用于将序列中的元素以指定的字符连接生成一个新的字符串。j
- 完美的渐变透明效果。支持IE,Firefox渐变,自己写的JS框架中用的东西,发出来了。修正完全隐藏时,偶尔不display = "
- 这篇文章主要介绍了如何给Python代码进行加密,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以
- 函数使用def base64_to_image(base64_code): img_data = base64.b
- 前言大家好,我们今天来爬取c站的高校名单,把其高校名单,成员和内容数获取下来,不过,我们发现这个网站比我们平时多了一个验证,下面看看我是怎么
- 一、打开摄像头import cv2import numpy as npdef video_demo(): capture = c
- 学习前言我发现不仅有很多的Keras模型,还有很多的PyTorch模型,还是学学Pytorch吧,我也想了解以下tensor到底是个啥。Py
- import turtle as tt.setup(800,600,0,0,)t.pensize(2)t.speed(1)t.color(&