Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 299|回复: 10

[已解决]请教数组为何不显示

[复制链接]
发表于 2021-2-20 08:30 | 显示全部楼层 |阅读模式
Sub kkk()
Dim a(9, 1), i
For i = 1 To 9
a(i, 1) = i
Next i
Sheet6.Range("l5").Resize(9, 1) = a(9, 1)
MsgBox "执行完毕!"
End Sub

这一段程序执行完,L5:L13  全是9,我想要的结果是 1 2 3 4 5 6 7 8 9
Sheet6.Range("l5").Resize(9, 1) = a(9, 1) 这一句若是Sheet6.Range("l5").Resize(9, 1) = a 数值不显示
请教老师


最佳答案
2021-2-20 09:14
本帖最后由 砂海 于 2021-2-20 09:25 编辑

Dim a(9, 1)   '测试 效果相当于 Dim a(0 to 9, 0 to 1)
----------------------------------------
'猜测这个是你要的结果
Sub kkk()
Dim a(1 to 9, 1 to 1), i
For i = 1 To 9
a(i, 1) = i
Next i
Sheet6.Range("l5").Resize(9, 1) = a'
MsgBox "执行完毕!"
End Sub
==================Sheet6 也是个 比较另类的写法 , 通常是sheets("工作表名")
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-2-20 09:13 | 显示全部楼层
本帖最后由 高 于 2021-2-20 09:46 编辑

Sub kkk()
Dim a(1 To 9), i
For i = 1 To 9
a(i) = i
Next i
Sheet6.Range("l5").Resize(9, 1) = Application.Transpose(a)
MsgBox "执行完毕!"
End Sub


回复

使用道具 举报

发表于 2021-2-20 09:14 | 显示全部楼层    本楼为最佳答案   
本帖最后由 砂海 于 2021-2-20 09:25 编辑

Dim a(9, 1)   '测试 效果相当于 Dim a(0 to 9, 0 to 1)
----------------------------------------
'猜测这个是你要的结果
Sub kkk()
Dim a(1 to 9, 1 to 1), i
For i = 1 To 9
a(i, 1) = i
Next i
Sheet6.Range("l5").Resize(9, 1) = a'
MsgBox "执行完毕!"
End Sub
==================Sheet6 也是个 比较另类的写法 , 通常是sheets("工作表名")
回复

使用道具 举报

 楼主| 发表于 2021-2-20 09:46 | 显示全部楼层
砂海 发表于 2021-2-20 09:14
==================Sheet6 也是个 比较另类的写法 , 通常是sheets("工作表名")

谢谢 老师指点,非常好,正是我想要的结果!
回复

使用道具 举报

 楼主| 发表于 2021-2-20 09:48 | 显示全部楼层
高 发表于 2021-2-20 09:13
Sub kkk()
Dim a(1 To 9), i
For i = 1 To 9

谢谢 老师指导!
回复

使用道具 举报

 楼主| 发表于 2021-2-20 10:19 | 显示全部楼层
砂海 发表于 2021-2-20 09:14
==================Sheet6 也是个 比较另类的写法 , 通常是sheets("工作表名")

老师好,为什么第2位与第5位数有小数点呢?    ,其它都是整数 1 ,2.0, 3 ,4, 5.0 ,6 ,7, 8 ,9
回复

使用道具 举报

 楼主| 发表于 2021-2-20 10:53 | 显示全部楼层
高 发表于 2021-2-20 09:13
Sub kkk()
Dim a(1 To 9), i
For i = 1 To 9

老师的算法简洁,不是我想要数组 那样的效果。谢谢老师。
回复

使用道具 举报

发表于 2021-2-20 15:33 | 显示全部楼层
为什么第2位与第5位数有小数点呢?

能上传该效果的附件吗?
回复

使用道具 举报

发表于 2021-2-21 13:14 | 显示全部楼层
爱疯 发表于 2021-2-20 15:33
为什么第2位与第5位数有小数点呢?

能上传该效果的附件吗?

估计是他设置了单元格格式。
回复

使用道具 举报

 楼主| 发表于 2021-2-22 12:40 | 显示全部楼层
高 发表于 2021-2-21 13:14
估计是他设置了单元格格式。

谢谢 老师提醒指导!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-4-20 05:34 , Processed in 0.156000 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表