VB/VBA数组Transpose转置DLL，32位/64位均可用

jz_l

转置规则：
　　1、一维数组转置后为多行一列(列标为1)的二维数组；
　　2、多行一列的二维数组转置后为一维数组；
　　3、一行多列的二维数组转置后为多行一列的二维数组；
　　4、R行C列二维数组转置后为C行R列的二维数组。

特性：
　　1、原地转置；
　　2、支持Byte, Integer, Long, ..., UDT等所有VB/VBA能定义出的数组；
　　3、不限制行列数；
　　4、不改变原数据类型；
　　5、不改变原上下标；
　　6、速度尚可！

不能转置的情形：
　　1、空数组（未初始化或不能识别为SAFEARRAY安全数组）；
　　2、超过2维的数组（只能对1维/2维数组转置）；
　　3、固定大小的静态数组；
　　4、目标数组已被锁定（引用）。

使用方法：
　　1、除String数组、包含数组的Variant外，直接使用：
　　　　Call Transpose(ary())
　　2、String数组、Variant，先获取数组SAFEARRAY结构地址再使用：
　　　　Call TransposePtr(ArrayPtrV(sArr())) 'String数组
　　　　Call TransposePtr(ArrayPtrV(vArr(1))) '包含数组的Variant

API声明：


转置示例：






不支持的情形：

jz_l

DLL及使用示例。。
230716更新，修复了1个Bug。

zpy2

UnmanagedExports

c#编译的吗？

morpheus126

请问原地转置的的意思是？~~目标变量直接转置？

wodewan

zpy2 发表于 2023-7-9 19:16
UnmanagedExports

c#编译的吗？

UnmanagedExports不是非托管吗？应该是C/C++的吧？记得大佬说过他不用C#的，哈哈

zpy2

wodewan 发表于 2023-7-10 10:39
UnmanagedExports不是非托管吗？应该是C/C++的吧？记得大佬说过他不用C#的，哈哈

只搜到一个这个c#

https://www.cnblogs.com/aipeli/p/6196303.html

可以生成非托管的dll

https://club.excelhome.net/forum.php?mod=viewthread&tid=1482161&extra=&mobile=&_dsign=bb547adf
以前写个dll，外挂，全局hook模拟ctr+c,只能c语言注入方式，非常麻烦。本来想是bstr传到dll，在dll里直接处理代码缩进,后来，传入不了，总报错，不行只能vb6从剪贴板读取，然后再vb6格式化，没在dll里处理缩进字符串。

jz_l

morpheus126 发表于 2023-7-9 20:56
请问原地转置的的意思是？~~目标变量直接转置？

原地转置，即尽量不使用额外内存空间，调整原数组内各元素的位置
可以在剩余内存较少的情况下转置较大的数组

jz_l

wodewan 发表于 2023-7-10 10:39
UnmanagedExports不是非托管吗？应该是C/C++的吧？记得大佬说过他不用C#的，哈哈

是不会，所以不会用哈

wodewan

jz_l 发表于 2023-7-10 11:17
是不会，所以不会用哈

，本来也想搞个类似的，无奈初学，看的出来大佬对C/C++和VB的数据转换，内存结构很精通啊，有没啥学习资料推荐下。

jz_l

实际上会优先尝试申请额外的内存来进行转置，可用内存不足时才会使用原地转置的方法。
有足够的可用内存总是会更快点。
比如：一个50万行*1000列的Long型数组，占用内存为1.86G
在32位VBA中剩余可用内存不足，就会使用原地转置；
在64位VBA中如果可用内存足够，就会使用额外内存，速度就会快很多。