查看: 5220|回复: 3
如何用数组向单元格区域批量写入数据，急急！！！
阅读权限30
在线时间 小时
求助各位老师：
& & 我正在学习数组，我想通过数组在 B1:B20 的单元格区域内批量写入如同 A1:A20 中以20开始的等加数列，但运行后只填入了20，不知问题出在哪里，请各位老师帮我修改，谢谢！
(9.41 KB, 下载次数: 35)
18:51 上传
点击文件名下载附件
阅读权限95
在线时间 小时
arr(20)是一维数组，而工作表中单元格区域都是二维的，所以要对arr(20)进行转置。Public Sub 数组学习()
& &Dim i As Long
& &Dim arr(20)
& &Range(Cells(1, 2), Cells(20, 2)).ClearContents
& &k = 20
& &For i = 1 To 20
& && & arr(i) = k
& && & k = k + 1
& &Next i
& &Range(Cells(1, 2), Cells(20, 2)).Value = Application.Transpose(arr)& &'这里我想通过一句写入数据 ！！！
End Sub
阅读权限20
在线时间 小时
Sub arr_()
arr = ActiveSheet.Range(&a1:a20&)
ActiveSheet.[b1].Resize(20, 1) = arr
阅读权限30
在线时间 小时
chxw68 发表于
arr(20)是一维数组，而工作表中单元格区域都是二维的，所以要对arr(20)进行转置。
谢谢老师指导！学习中。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Excel VBA数组入门教程 （共10集）
我的图书馆
Excel VBA数组入门教程 （共10集）
Excel VBA数组入门教程 （共10集）
来源：& 作者：兰色幻想
TA的最新馆藏[转]&[转]&
喜欢该文的人也喜欢君，已阅读到文档的结尾了呢~~
Excel VBA中列表框数据的动态填充Excel VBA中列表框数据的动态填充［信息技术教学与研究］王 炫　　约3377字　　摘 要: 本文基于Microsoft Office Excel应用软件,利用Excel 开放的Visua...
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
Excel VBA中列表框数据的动态填充
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口VBA用数组填充单元格区域
来源：& 作者：佚名
&&1．案例说明在Excel中要处理大量数据时，可使用循环从各单元格读入数据，经过加工处理后再写回单元格区域中。这种方式比在数组中处理数据的速度要慢。因此，如果有大量的数据需要处理时，可先将数据保存到数组中，经过加工处理后，再将数组的数据填充到单元格区域。本例演示将二维数组中的数据填充到工作表中的方法。&2．关键技术在Excel工作表中，工作表是一个二维结构，由行和列组成。这种特性与二维数组类似，因此可以很方便地将工作表单元格区域与二维数组之间进行转换。通过以下语句可将单元格区域赋值给一个二维数组：myarr = Range(Cells(1, 1), Cells(5, 5))反过来，也可将二维数组中的值快速的赋值给一个单元格区域，如以下语句将二维数组myarr中的值赋值给单元格区域Rng：Rng.Value = arr&3．编写代码（1）新建Excel工作簿，按快捷键“Alt+F11”进入VBE环境。（2）单击菜单“插入/模块”命令向工程中插入一个模块。（3）在模块中编写以下代码：Option Base 1Sub 数组填充单元格区域()&&& Dim i As Long, j As Long&&& Dim col As Long, row As Long&&& Dim arr() As Long&&& row = Application.InputBox(prompt:="输入行数：", Type:=2)&&& col = Application.InputBox(prompt:="输入列数：", Type:=2)&&& ReDim arr(row, col)&&& For i = 1 To row&&&&&&& For j = 1 To col&&&&&&&&&&& arr(i, j) = (i - 1) * col + j&&&&&&& Next&&& Next&&& Set Rng = Sheets(1).Range(Cells(1, 1), Cells(row, col))&&& Rng.Value = arrEnd Sub（4）返回Excel操作环境，向工作表中添加一个按钮，设置提示文字为“填充数据”，指定该按钮的宏为“数组填充单元格区域”。（5）单击“填充数据”按钮，弹出如图3-37所示对话框，分别输入数组的行和列。&&&&&
阅读： 次录入：
上一篇：下一篇：
相关新闻 & & &
本文评论 & & &
描写孝心的句子:http://tongxiehui.net/by/
节日促销广告语:http://tongxiehui.net/by/
古诗:http://gs.tongxiehui.net
研究性学习结题报告:http://tongxiehui.net
春天的诗有哪些:http://tongxiehui.net/by/
<img src="pic/face9.gif"
<img src="pic/face18.gif"
alt=""/点评：
字数 姓名：
尊重网上道德，遵守中华人民共和国的各项有关法律法规
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
本站管理人员有权保留或删除其管辖留言中的任意内容
本站有权在网站内转载或引用您的评论
参与本评论即表明您已经阅读并接受上述条款
本周热门新闻}