VBA用数组如何 提取等距离间隔行数数据到右面

laoau128

VBA用数组如何    提取等距离间隔行数数据到右面

活在理想的世界

把步长值设为变量就可以了。

laoau128

活在理想的世界 发表于 2017-2-25 18:05
把步长值设为变量就可以了。

不会写请指导一下

活在理想的世界

111111111111111111111111111111111111111111111111111111

laoau128

活在理想的世界 发表于 2017-2-25 18:36
111111111111111111111111111111111111111111111111111111

为什么不用数组


Sub D()
Dim I, K, X As Integer
Dim S As Range
X = Range("A65536").End(xlUp).Row
Range("G1:I65536").ClearContents
Set S = Range("E1")
For I = S To X Step S
K = Range("G65536").End(xlUp).Row
    Range("A" & I).Resize(1, 3).Copy Range("G" & K + 1)
Next
End Sub


你这种写法实在看不懂，为什么不从后面开始循环

活在理想的世界

laoau128 发表于 2017-2-25 19:11
为什么不用数组

先说这段代码是否解决了你的问题。

如果问题解决了我告诉你代码的意思，如果没解决就没解释的必要了。

cbm

可以在for循环中用 step控制步进

laoau128

活在理想的世界 发表于 2017-2-25 19:25
先说这段代码是否解决了你的问题。

如果问题解决了我告诉你代码的意思，如果没解决就没解释的必要了。 ...

答案完全正确，但不懂你的写法

laoau128

cbm 发表于 2017-2-25 19:33
可以在for循环中用 step控制步进

为什么不用一般写法

活在理想的世界

7楼的兄弟说的方法与我给你的代码思路相吻合。

我就是用STEP控制步长的，设S为RANGE("E1")，S既是步长值又是循环下标。

你的问题其实还可以用事件来控制，根本不需要控件。