请帮忙看看哪里有问题

pychou · 发表于 2009-7-3 14:58

请帮忙看看哪里有问题, 红色那段有问题,每次运行到那里就跳出来说执行阶段有错误,1004. 多谢

Sub aa()
Dim i, j, s
For i = 1 To 10
j = Range("B" & i).Value
i = i + 1
s = Range("C" & j).Value
Next
End Sub

蓝桥玄霜 · 发表于 2009-7-3 15:01

B列B1：B10里面都是整数吗？
如果是空白、0、文本，那么Range("C" & j).就要出错了。

pychou · 发表于 2009-7-3 15:02

B1:B10都是整数
不过为何C列是文本就要出错呢?
文字型要如何处理?
先谢了

Zamyi · 发表于 2009-7-3 15:08

不会吧？传个附件看看。

laoyebin · 发表于 2009-7-3 15:09

val函数转换

abcd321abcd · 发表于 2009-7-3 15:15

不要让大伙儿猜吗，建议上传表格。

6688 · 发表于 2009-7-3 15:35

Sub aa()
Dim i, j, s
For i = 1 To 10
j = Range("B" & i).Value
s = Range("C" & i ).Value
msgbox s
Next
End Sub

pychou · 发表于 2009-7-3 16:42

上传附件,请高手帮忙看看

pychou · 发表于 2009-7-3 16:43

Sub aa()
Dim i, j, s
For i = 1 To 10
j = Range("B" & i).Value
s = Range("C" & i).Value
MsgBox s
Next
End Sub

刚试过,这一段是没问题的. 多谢啦!

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

[推荐] 请帮忙看看哪里有问题