转置，嵌套数组输出

sero61 · 发表于 2024-9-3 16:46

本帖最后由 sero61 于 2024-9-3 17:08 编辑

如图，转置，嵌套数组输出，把自己绕进去了。求大神指点

请路过的老师随手指点不需要上表了吧求助.png

怎么才能按15行2列输出

sero61 · 发表于 2024-9-3 16:49

顶起请指点开窍

chxw68 · 发表于 2024-9-3 16:51

With Worksheets("sheet1")
.Range("a1").Resize(UBound(brr), 2) = Application.Transpose(Application.Transpose(brr))
End With

复制代码

chxw68 · 发表于 2024-9-3 16:52

详见附件。

joy.008@163.com · 发表于 2024-9-3 16:55

from i=1 to 15
from j=0 to 1
arr(i,j+1) = b(i)(j)
next:next
看你最后想要什么样的格式你就怎么处理arr数组

sero61 · 发表于 2024-9-3 16:56

chxw68 发表于 2024-9-3 16:52
详见附件。

灿烂的笑容又是第一个出现感谢版主

sero61 · 发表于 2024-9-3 16:56

joy.008@163.com 发表于 2024-9-3 16:55
from i=1 to 15
from j=0 to 1
arr(i,j+1) = b(i)(j)

感谢回复感谢指教

gyf519 · 发表于 2024-9-3 16:58

crr=application.transpose（application.transpose(brr)）行不行

joy.008@163.com · 发表于 2024-9-3 16:59

[A1].RESIZE(15,2)=arr

sero61 · 发表于 2024-9-3 17:04

gyf519 发表于 2024-9-3 16:58
crr=application.transpose（application.transpose(brr)）行不行

行谢谢参与指点

		自动登录	找回密码
密码			免费注册

[已解决] 转置，嵌套数组输出