在ＥＸＣＥＬ中用ＶＢＡ 怎么才能自动增加列

[wyouken]

我知道在ＶＢＡ中用
rand =”D” +CStr(i)
可以对整个Ｄ列进行操作　但是现在我想对一行进行操作，比如我想对第一行从A1到AA1 操作　怎么设置变量

[xingnup]

dim rng as range
set rng=Sheet1.range("A1:AA1")

[wyouken]

谢谢 我想循环计算怎么办呢

[xingnup]

假设A1:AA1中的数字都是整数

dim i as integer
dim varTemp

for each vartemp in rng
i=i+Cint(vartemp)
next
msgbox "累计值=" & i