关于数组变量的写法

wenjie242922 · 发表于 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......请高手指教！！

f8b1987 · 发表于 2020-9-15 14:02

arr(i,1)

wenjie242922 · 发表于 2020-9-15 14:06

本帖最后由 wenjie242922 于 2020-9-15 14:07 编辑

f8b1987 发表于 2020-9-15 14:02
arr(i,1)

不是，我是说的arr1这个1用变量怎么写？不是arr（i，1），意思就是说当i=2，数组就是arr2

一把小刀闯天下 · 发表于 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

f8b1987 · 发表于 2020-9-15 14:14

wenjie242922 发表于 2020-9-15 14:06
不是，我是说的arr1这个1用变量怎么写？不是arr（i，1），意思就是说当i=2，数组就是arr2

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

山菊花 · 发表于 2020-9-15 14:26

在VFP中，有这个语法规则，叫宏替换函数。
在VBA中，没有这个规则，可以用数组（必要时配以字典）实现这种形式的作用。

yylucke · 发表于 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

cui26896 · 发表于 2020-9-15 15:20

小刀老师给出的结果，应该就是楼主要的，arr(n),要多少个，只要写个数字，就可以是多少个。

wenjie242922 · 发表于 2020-9-16 08:52

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

谢谢！已经用if搞定！

wenjie242922 · 发表于 2020-9-16 08:53

一把小刀闯天下发表于 2020-9-15 14:10
sub test
redim arr(1)
arr(0)=[a1:a10].value

谢谢！谢谢指教！

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

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

评分

最新热点 /1