哪位能帮我看看VBA中这段程序的意思?

icount1 = [B1].CurrentRegion.Rows.Count '统计工作表行非空行数
Range(Cells(2, 4), Cells(icount1, 11)).Select
Selection.ClearContents
For hang1 = 2 To icount1

icount1 = [B1].CurrentRegion.Rows.Count '统计工作表行非空行数并赋给变量icount1
Range(Cells(2, 4), Cells(icount1, 11)).Select '选中指定的区域,从B4到上面取到非空行的11列
Selection.ClearContents ‘清除选中区域的内容
For hang1 = 2 To icount1 ’令hang1 从2 到 icount1进行循环
循环后要做什么呢,后面应该还有吧。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-11-07
icount1 = [B1].CurrentRegion.Rows.Count '统计工作表行非空行数
Range(Cells(2, 4), Cells(icount1, 11)).Select '选择指定的区域
Selection.ClearContents ‘清楚选择区域的内容
For hang1 = 2 To icount1 ’从hang1=2 到 icount1的值循环
相似回答