在EXCEL的宏中,输入下列程序,是什么意思

Sub tt()
For i = 97 To 1200

If Cells(i, 1).Value = Cells(1, 1).Value Then

For k = 1 To 5
Cells(i, k).Value = Cells(i - 1, k).Value
Next

End If

Next
End Sub
我的意思是:如果可以的话,请逐一解释这段程序是用来实验什么目的
我是睇不明程序,不是不会用宏

复制这段代码,打开EXCEL工作表,按Alt+F11,插入-模块(如果已经有模块就省略这一步),然后ctrl+V粘贴这段代码即可。

Sub tt() '程序开始,程序名tt
For i = 97 To 1200 '外层循环。i代表行,从97行到1200行共1103行。即表示循环1103次。
If Cells(i, 1).Value = Cells(1, 1).Value Then '判断第i行第1列(如i为97时,就是A97)的值与A1的值相同,就执行下面这个循环。否则,跳到End If后面。
For k = 1 To 5 '内层循环。k代表列,1到5列就是A到E列。
Cells(i, k).Value = Cells(i - 1, k).Value '通过5次循环,将i行上一行A到E列的值复制到i行的A到E列。如i为97时,就是将A96,B96,C96,D96,E96复制到A97,B97,C97,D97,E97。
Next '内层循环结束
End If '判断语句结束
Next '外层循环结束
End Sub '程序结束
温馨提示:答案为网友推荐,仅供参考
第1个回答  2008-08-01
Cells(i,j)是在宏中单元格的表达格式,指第i行第j列,如Cells(1,1)引用单元格A1。

.Value属性用来读取单元格的值或对单元格赋值。

这段程序的目的是对第97-1200行的前5列(A-E)赋值,即复制前面已有的内容。

运行后你可以看到结果。
相似回答