关于transpose的转置数组的问题。

sfiqkf

wj2368 发表于 2019-2-20 13:44
Sub FB()
Dim xh As Range, i As Range, n%, arr(), arr1
j = InputBox("???????")

您好，您这个代码运行正常，但我要生成的表格是要由上而下排列，形成学号与姓名各一列，所以需要两次转置，但发现您这代码运行后是从左往右排列了，我在您代码上再加了一次转置后，又无用了。

sfiqkf

abc123281 发表于 2019-2-20 12:04
Sub FB()
Dim arr, brr(1 To 10000, 1 To 2)
With Worksheets("sheet1")

谢谢，但我想放在不同的工作表中。

taller

sfiqkf 发表于 2019-2-20 14:27
您好，转置两次，是为了将生成的arr数组（一维）的，转换为二维的。这样才能写进单元格。

单步执行看一下变量的值的变化就知道是否不是以楼主希望的方式在做变换

wj2368

sfiqkf 发表于 2019-2-20 14:31
您好，您这个代码运行正常，但我要生成的表格是要由上而下排列，形成学号与姓名各一列，所以需要两次转置 ...

。。。。。。。。。。。。

sfiqkf

wj2368 发表于 2019-2-20 14:51
。。。。。。。。。。。。

您好，谢谢您的帮助，您的表格，学号与姓名被放在了同一列了，我需要的是学号与姓名，各一列（学号A列，姓名B列）。

sfiqkf

taller 发表于 2019-2-20 14:49
单步执行看一下变量的值的变化就知道是否不是以楼主希望的方式在做变换

感谢版主的关心，我单步执行后，发现前面数组正常，都有值，但到了将arr这个数组转置两次后赋给arr1这个数组，arr1数组维数都显示正确了，就是值全部为零，不知是什么原因，百思不得其解。一直卡这儿。

micch

sfiqkf 发表于 2019-2-20 14:12
各位，转置两次，是因为生成的arr是个1维数组，通过这个命令，转了两次后，可以变成二维的，成了二维的，才 ...

一维数组转置两次是二维的？？？

你的结果数组arr是三维的，转两次还不是你要的结果，那你就要再转一次了。你要的是两行多列，还是两列多行，看你要求了

ione_fox

micch 发表于 2019-2-22 11:14
一维数组转置两次是二维的？？？

http://club.excelhome.net/thread-1071321-1-1.html 5楼详解

wj2368

sfiqkf 发表于 2019-2-22 10:47
您好，谢谢您的帮助，您的表格，学号与姓名被放在了同一列了，我需要的是学号与姓名，各一列（学号A列， ...

这不是你原来的表吗

sfiqkf

统一回复：感谢各位的鼎力支持。最终发现，我的代码没有问题，而是因为WPS表格对VBA的支持性不够好。同样的表格，用office打开，正常，而且WPS打开，两次转置后，数据丢失了。目前测试WPS的2016与2019版本都是这现象。office 2010版本及以上没有问题。