[求助]关于vba循环的一个问题 高手帮忙解决一下

XIAOCAINIAO2011

Sub 数据()
For I = 4 To Range("A65536").End(xlUp).Row Step 2
Cells(I, 3) = Cells(I, 3) & "," & Cells(I + 1, 3)
Cells(I + 1, 3) = ""
Range(Cells(I, 3), Cells(I + 1, 3)).Select
    Selection.Merge
Next
End Sub
上面代码里 I 为列循环  但是我想 I =4的时候 有一个行循环 从3-20    步骤是这样的：i=4时  行循环分别=3 4 5 6 7 ...20  然后i=6   行循环分别=3 4 5 6 7 ...20  
高手们 解决一下  万分感谢！！！

artin88

循环体里面加一个mod判断i是不是偶数就行了，是就执行循环体，不是就直接到下一个i了

riguangxia

Next 上面加上  I=I+1

XIAOCAINIAO2011

artin88 发表于 2012-3-22 11:42
循环体里面加一个mod判断i是不是偶数就行了，是就执行循环体，不是就直接到下一个i了

你好  这个步长为2  一直是偶数  能再说明白一点吗

swl4561255

是不是这个意思？

Sub 数据()
For j=3 to 20
For I = Range("A65536").End(xlUp).Row  To 4 Step -2
Cells(I, j) = Cells(I, j) & "," & Cells(I + 1, j)
Range(Cells(I, j), Cells(I + 1, j)).Merge
Next
Next
End Sub

XIAOCAINIAO2011

swl4561255 发表于 2012-3-22 11:53
是不是这个意思？

Sub 数据()

对了，谢谢您，我在好好研究下这个代码。