Question

VBA中，如何将文本对应到变量名，并调用该变量的值？

Function rep(a1%, a2%, a3%, a4%, a5%）As Boolean
Dim arr(1 To 5) As Variant

For i = 1 To 5
arr("a" & i) = 1

请问此处如何将”a“ & i 的值作为数组下标传回arr中

即：函数中如果传入的a1=5，则i=1时，arr("a" & i)=arr(ai)=arr(5)

Answer 1

字符串 对应到 变量名，有一种情况是可以的，就是定义一个类，类的属性就可以用字符串来调用，比如，textbox控件的属性enabled，可以用字符串“enabled”来调用，这个叫“反射”还是“映射”技术，记不清楚了，VB.net有这个功能，VB6好像也有，所以VBA应该有。有兴趣可以百度一下，或查阅MSDN for VB

就您提的这个问题，是没可能的。但是可以考虑把a1什么的也做成数组，数组是可以作参数传递的

Answer 2

用数组作参数就可以了，数组中有a1-a5这5个元素。你说的那种功能只可以在VBS或JS中才可以实现。
第一种（参数数组）：
Function rep(ParamArray a()）As Boolean
Dim arr(1 To 5) As Variant

For i = 1 To 5
arr(a(i-1)) = 1

函数调用方式：rep 5,4,3,2,1

第二种（数组作为参数）：
Function rep(a()）As Boolean
Dim arr(1 To 5) As Variant

For i = 1 To 5
arr(a(i)) = 1

调用方式：
dim b(1 to 5)
b(1)=5:b(2)=4:b(3)=3:b(4)=2:b(5)=1
rep b

Answer 3

可以用string类型的变量存变量的地址，最后统一操作这些地址的单元格

例如：

将表三中成绩为空的单元格标为空。先存储所有单元格为空的地址，然后批量将此单元格的值改为“未考”

Dim rng as Range,rn$
On Error Resume Next
For Each rng In sheet3.Range("b2:d10")
     If rng="" Then rn=rn & rng.Address & ","
Next
Range(Left(rn,Len(rn)-1))="未考"  '去掉地址字符串最后一个，

Answer 4

不行的，变量就是变量，不能用字符联接成变量名