ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 215|回复: 10

[求助] 关于数组变量的写法

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-9-15 13:59 | 显示全部楼层 |阅读模式
本帖最后由 wenjie242922 于 2020-9-15 14:11 编辑

vba数组中:
arr1=Range(“a1:a10”)请问:arr1中的1是变量i应该如何写?直接写:arr&i或者arr&"i"都不行。意思就是说,我要设置多个数组,arr1,arr2......请高手指教!!

TA的精华主题

TA的得分主题

发表于 2020-9-15 14:02 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-15 14:06 | 显示全部楼层
本帖最后由 wenjie242922 于 2020-9-15 14:07 编辑

不是,我是说的arr1这个1用变量怎么写?不是arr(i,1),意思就是说当i=2,数组就是arr2

TA的精华主题

TA的得分主题

发表于 2020-9-15 14:10 | 显示全部楼层
sub test
redim arr(1)
arr(0)=[a1:a10].value
arr(1)=[b1:b20].value
for i=0 to ubound(arr)
  for j=1 to ubound(arr(i),1)
    debug.print arr(i)(j,1),
  next
  debug.print
next
end sub

评分

参与人数 1鲜花 +3 收起 理由
YZC51 + 3 太强大了

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-9-15 14:14 | 显示全部楼层
wenjie242922 发表于 2020-9-15 14:06
不是,我是说的arr1这个1用变量怎么写?不是arr(i,1),意思就是说当i=2,数组就是arr2

这个变量名称是有固定规则的,不能随心所欲

TA的精华主题

TA的得分主题

发表于 2020-9-15 14:26 | 显示全部楼层
在VFP中,有这个语法规则,叫宏替换函数。
在VBA中,没有这个规则,可以用数组(必要时配以字典)实现这种形式的作用。

TA的精华主题

TA的得分主题

发表于 2020-9-15 14:50 | 显示全部楼层
本帖最后由 yylucke 于 2020-9-15 14:51 编辑

赞同6楼总版主的方案,用字典来实现动态数组变量,例如
sub test
Set dic = CreateObject("scripting.dictionary")
dic(1) = Range("A1:B5").Value
dic(2) = Range("D1:E5").Value

'引用
i = 1
brr = dic(i) '即根据i的值来得到不同的brr数组
end sub

TA的精华主题

TA的得分主题

发表于 2020-9-15 15:20 | 显示全部楼层
小刀老师给出的结果,应该就是楼主要的,arr(n),要多少个,只要写个数字,就可以是多少个。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-16 08:52 | 显示全部楼层
yylucke 发表于 2020-9-15 14:50
赞同6楼总版主的方案,用字典来实现动态数组变量,例如
sub test
Set dic = CreateObject("scripting.dic ...

谢谢!已经用if搞定!

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-16 08:53 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-9-24 01:13 , Processed in 0.074823 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

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