有高手帮我看一下为什么没反应呀？

hvail · 发表于 2012-7-15 10:07

本帖最后由 hvail 于 2012-7-15 10:56 编辑

Sub index1()
Dim i As Variant
Dim j As Variant
For j = 4 To 5
If i = j - 2 Then
Sheets("ProductCreate").Range("b" & j) = Sheets(i).Range("A105")
Sheets("ProductCreate").Range("o" & j) = Sheets(i).Range("A106")
End If
Next
End Sub

tomle · 发表于 2012-7-15 12:30

那IF语句去掉、，直接I=J-2就行了

hvail · 发表于 2012-7-15 17:43

tomle 发表于 2012-7-15 12:30
那IF语句去掉、，直接I=J-2就行了

3Q。。。。。。。。

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