[已解决]求助：简单for循环，为何会出现错误

1top_yp1 · 发表于 2012-10-12 16:50

Sub 测试()
sheets("EXCELHOME").Activate
Dim x
For x = 1 To 5
Sheets("sheet1").Cells(1, x) = Application.WorksheetFunction.Sum(Range(Cells(3, x + 3), Cells(4, x + 3)))
x = x + 1
Next
End Sub

复制代码

为何我得不到cells（1，2）和cells（1，4）的值呢？

测试.rar (19.41 KB, 下载次数: 8)

hwc2ycy · 发表于 2012-10-12 16:59

你看看工作表是不是有。

1top_yp1 · 发表于 2012-10-12 17:04

hwc2ycy 发表于 2012-10-12 16:59
你看看工作表是不是有。

附件运行后B2和B4单元格就是没有值啊，不解啊

hwc2ycy · 发表于 2012-10-12 17:05

复制代码

这句多余，删掉。

hwc2ycy · 发表于 2012-10-12 17:07

你从1列只直接跳3列，再跳到5列。
FOR NEXT循环自动会变量加1的。

hwc2ycy · 发表于 2012-10-12 17:08

我刚始也没细看代码，没注意X=X+1了。看来还是粗心了。

		自动登录	找回密码
密码			注册