excel vba 编程方面的问题，变量赋值的问题

Question

我定义了一个变量add，我要给这个add的变量赋值，让它等于sheet1的C2到C21的值，让它同时取 这20个单元格的值，要怎么取值 啊，语句该怎么写啊
注：这20个单元格的内容类型是字符串，是20个邮箱的地址，就是同时取这20个单元格的地址，同时给他们每个人发送邮件，请问该如何取值啊
要的比较急，希望得到高手的帮助啊，跪求啊，在线等

Answer 1

邮件地址最后都是以逗号分开的是吧？

如果是这样的话。这样写代码
dim add as string
dim c as range
for each c in sheets("sheet1").range(“C2:C21”)
add=add & “," & c.value
next

Answer 2

add= ""
for i=1 to 21
add= add & cells(i,3)
next i

追问

你还在吗？可以帮我在看一下吗？
1，如果我取的地址是名字为“用户名”的sheet里的邮箱地址，该怎么在刚才你给我发的程序里面加一句话啊

2，还有我还想问你一个问题，就是sheet2里面会增加几行东西，增加的数量不固定，怎么定义一个变量来表示这个数量啊，还有每次增加的数量都不一样，那又该怎么定义啊，那个定义的变量要随着增加的数量来自动变化，该怎么写这个语句啊O(∩_∩)O谢谢
在线等

追答

nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row

Add = ""
For i = 1 To nLR
Add = Add & Cells(i, 1)
Next i

Answer 3

sheets("sheet1").select
add= ""
for i=2 to 21
add= add & cells(i,3) & ";" '用分号隔离一下
next i
cells(22,3)=add '存到C22单元格

Answer 4

dim add as string
dim c as range
for each c in sheets("sheet1").range(“C2:C21”)
add=add & “;" & c.value
Range("C"&c).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
next