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

cbm

laoau128 发表于 2017-2-25 19:35
为什么不用一般写法

使用step可以在控制循环次数的同时，在循环内部还可以用它作为变量搞事情，
一举两得挺好的。

活在理想的世界

laoau128 发表于 2017-2-25 19:34
答案完全正确，但不懂你的写法

我的代码有两个核心

一个是S,S就是你的E1单元格的值，S既是循环下标又是步长值，S的值由你的E1单元格手动控制，还可以做成Change事件，只要输入E1单元格的值就可以自动生成数据。

还有一个是Range("A" & I).Resize(1, 3).Copy Range("G" & K + 1)语句
意思是说将符合要求的单元格所对应的3列数据全部复制到G列里去。

就是如此。

cbm

活在理想的世界 发表于 2017-2-25 19:37
7楼的兄弟说的方法与我给你的代码思路相吻合。

我就是用STEP控制步长的，设S为RANGE("E1")，S既是步长值 ...

点赞，这么快就给出代码了

小花鹿

楼主厉害，忍不住给你点个赞

laoau128

活在理想的世界 发表于 2017-2-25 19:43
我的代码有两个核心

一个是S,S就是你的E1单元格的值，S既是循环下标又是步长值，S的值由你的E1单元格 ...

大侠你高手

这个如何做

VBA改写加一个循环 控制MN两列自动循环粘贴

http://club.excelhome.net/thread-1330129-1-1.html

laoau128

小花鹿 发表于 2017-2-25 19:50
楼主厉害，忍不住给你点个赞

厉害在哪里，请你指出来

xiangbaoan

补个数组的

1. Sub test()
   
2. Dim arr, brr(), s%, r%, i%, j%
   
3. arr = [a1].CurrentRegion
   
4. s = [e1]
   
5. r = Int((UBound(arr) - 1) / s) + 1
   
6. ReDim brr(1 To r, 1 To 3)
   
7. For i = UBound(arr) To 1 Step -s
   
8.     For j = 1 To 3
   
9.        brr(r, j) = arr(i, j)
   
10.     Next
    
11.     r = r - 1
    
12. Next
    
13. [g1].CurrentRegion = ""
    
14. [h1].Resize(UBound(brr)).NumberFormatLocal = "yyyy-mm-dd"
    
15. [g1].Resize(UBound(brr), UBound(brr, 2)) = brr
    
16. End Sub

复制代码

laoau128

xiangbaoan 发表于 2017-2-25 21:55
补个数组的

大侠你高手

这个如何做

VBA改写加一个循环 控制MN两列自动循环粘贴

http://club.excelhome.net/thread-1330129-1-1.html

zz5857658576

xiangbaoan 发表于 2017-2-25 21:55
补个数组的

太强大了，运算速度极快！！！