提取符合指定间隔行号和指定周期余数的所有数据

WYS67

跪求高手大神们伸出援手

WYS67

跪求高手大神们伸出援手

WYS67

希望高手大神们帮忙解决！

WYS67

希望高手大神们帮忙解决！

WYS67

跪求高手大神们伸出援手

zhangzhang

Public Sub test()
Dim Arr, Brr
Dim LastR As Long
Dim ZhouQi As Long
Dim i As Long, j As Long, m As Long

LastR = Range("i1048576").End(xlUp).Row

Arr = Range("I5:I" & LastR)
ZhouQi = Range("L3")
ReDim Brr(1 To (UBound(Arr) - 1) / ZhouQi + 1, 1 To ZhouQi)

m = 1
For i = 1 To UBound(Arr)
    j = i Mod ZhouQi
    If j = 0 Then j = ZhouQi
    Brr(m, j) = Arr(i, 1)
    If j = 3 Then m = m + 1
Next i

Range("L5").Resize(UBound(Brr), ZhouQi) = Brr


End Sub

WYS67

zhangzhang 发表于 2018-7-24 09:30
Public Sub test()
Dim Arr, Brr
Dim LastR As Long

老师：测试无响应。能不能作个附件上传？

zhangzhang

WYS67 发表于 2018-7-24 09:41
老师：测试无响应。能不能作个附件上传？

详见附件。。。。。。。。。。。

WYS67

zhangzhang 发表于 2018-7-24 09:56
详见附件。。。。。。。。。。。

老师：1楼附件里的I列只是数据列之一，A:I列里都有数据。我的本意是创建自定义函数，能够按L3:L4指定的条件，按需要提取A:I任意列符合条件的所有数据。sub过程不如自定义函数
     =ZDTQ(数据源区域，指定间隔行数的周期，各周期指定余数)        用起来方便快捷。还请老师帮忙创建自定义函数为盼！

zhangzhang

WYS67 发表于 2018-7-24 10:12
老师：1楼附件里的I列只是数据列之一，A:I列里都有数据。我的本意是创建自定义函数，能够按L3:L4指定的条 ...

A:D列里都有数据  在A:D 里 有三四行数据，再有 模拟的结果。（自定义函数 不如 Sub，个人意见）