怎样将字符串和数字连接起来组成变量名

canyng2

Sub Test()
    Dim arr
    arr = Array("A", "B", "C", "D", "E", "F", "G", "H", "i", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
    For i = 0 To UBound(arr)
    If i < UBound(arr) - 2 Then
        tt = arr(i) & arr(i + 1) & arr(i + 2) & arr(i + 3)
        Debug.Print tt
        End If
    Next i
End Sub

GG函数

1. Function GG测试()
   
2.     Dim 变量1
   
3.     Dim 变量2
   
4.     Dim 变量3
   
5.    
   
6.     Dim 变量数组(1 To 3)
   
7.     变量数组(1) = 变量1: 变量数组(2) = 变量2: 变量数组(3) = 变量3
   
8.    
   
9.     Dim L007 As Long
   
10.    
    
11.     For L007 = 1 To 3
    
12.         MsgBox 变量数组(L007) '循环变量
    
13.     Next
    
14.    
    
15. End Function

复制代码

wtg321

可以变通一下试试：

1. Sub tt()
   
2. Set dic = CreateObject("Scripting.Dictionary")
   
3. dic.Add "aa1", "abcd"
   
4. dic.Add "aa2", "bcde"
   
5. dic.Add "aa3", "cdef"
   
6. Dim h As New Collection
   
7. For i = 1 To 3
   
8.     h.Add "aa" & i, CStr(i)
   
9. Next i
   
10. For j = 1 To 3
    
11.     Debug.Print dic(h(j))
    
12. Next j
    
13. Set dic = Nothing
    
14. Set h = Nothing
    
15. End Sub

复制代码

leolee82

把所有变量放到类模块中，用CallByName访问