拼接变量名称的字符

pepsi7777

各位老师好，请教
变量名称的字符如何拼接？
代码1，分别为5个变量赋值，是否可以将赋值的过程用循环写？例如第2段代码。变量H1的1换成 i,如何写？感谢！！！

代码1：
Sub 拼接变量名称()
Dim H1, H2, H3, H4, H5 As String
H1 = Cells(1, 1)
H2 = Cells(2, 1)
H3 = Cells(3, 1)
H4 = Cells(4, 1)
H5 = Cells(5, 1)
End Sub

代码2：
Sub 拼接变量名称()
Dim H1, H2, H3, H4, H5 As String
Dim i As Long

For i = 1 To 12
    H i = Cells(i, 1)    'H与  i 如何拼接？  感谢
Next
End Sub

wengjl

Sub ss()
   
   For i = 1 To 3
      aa = "H" & i
      MsgBox aa
   Next i
   
   
End Sub

leirongqin

H1 = Cells(i, 1)  'H1的1换成 i ，如何写？
Range("H"& i)=Cells(i,1)

MOY838840554

变量名不能拼接，用数组

pepsi7777

wengjl 发表于 2022-12-1 08:37
Sub ss()
   
   For i = 1 To 3

感谢 wengjl 老师

抱歉，昨天的问题描述有歧义，我完善简化了问题（1楼）。

我是想对 变量名称 做拼接。

有空时可以再帮看看吗？ 感谢

ykcbf1100

变量名不能拼接，可以这样

pepsi7777

ykcbf1100 发表于 2022-12-1 09:23
变量名不能拼接，可以这样

感谢 ykcbf1100 老师

大灰狼1976

不建议这样做，但是可以：

1. Public H1$, H2$, H3$, H4$, H5$
   
2. 
   
3. Sub test()
   
4. Dim i As Long
   
5. For i = 1 To 5
   
6.   CallByName Me, "H" & i, VbLet, Cells(i, 1)
   
7. Next i
   
8. For i = 1 To 5
   
9.   Debug.Print CallByName(Me, "H" & i, VbGet)
   
10. Next i
    
11. End Sub

复制代码