提取符合指定期序的《00 总表》【总表】E:J列的所有相关数据

WYS67

zhangzhang 发表于 2018-10-26 13:35
H1=10252 看一看

老师：《按指定期序提取相关数据》中【总表】里H1指定的2000也是。您写的代码：1.提取相关数据后，《按指定期序提取相关数据》中【总表】I2001:J2061里的统计公式和数据都变成了空白。2.如5楼提到的那样，代码没有提取完《00 总表》里所有符合条件的相关数据【就是09-25~10-24的数据】。所有符合指定条件的相关数据都应该提取出来。

WYS67

zhangzhang 发表于 2018-10-26 10:09
详见附件。。。。。。。。。。。。。

老师：请您按照5、6特别是11楼的要求修改代码

WYS67

请老师们按照5、6特别是11楼的要求修改代码

WYS67

请老师们按照5、6特别是11楼的要求修改代码

WYS67

请老师们按照5、6特别是11楼的要求修改4楼的代码

excelvlookup

当指定F2为1，H2为12时，就....
当指定F2为16，H2为空白时，就....
当F2，H2都为空白时，则....
买彩票的：有三个问题不明确
1、有没有可能F2为空，但H2不为空的情况
2、“当指定F2为16，H2为空白时，就....”你表达的意思是否是这样的：当F2不为空，H2为空时，就按F2取数。
3、综合1、2两个问题，是否有：当H2不为空，F2为空时，就按H2取数

WYS67

恳请老师们按照5、6特别是11楼的要求修改4楼的代码

WYS67

excelvlookup 发表于 2018-10-26 20:16
当指定F2为1，H2为12时，就....
当指定F2为16，H2为空白时，就....
当F2，H2都为空白时，则....

老师：这个不是买彩票预测用的。只是一个多条件的统计表，提取符合特定条件的相关数据，进行下一步分析统计的例子。

WYS67

excelvlookup 发表于 2018-10-26 20:16
当指定F2为1，H2为12时，就....
当指定F2为16，H2为空白时，就....
当F2，H2都为空白时，则....

也就是：当F2、H2不空时，提取符合指定范围期序的相关数据；当H2为空时，提取等于F2指定期序的相关数据；当F2、H2都空时，则提取等于C2指定期序的相关数据。

lss001

Sub 按指定期序提取相关数据()
Dim ar, br, i&, j&, k&, x&, y&, h1, h2, f2,c2
    f2 = Cells(2, "f"): h2 = Cells(2, "h"): c2 = Cells(2 ,"c")
    If f2 = "" And h2 <> "" Then MsgBox "f2:h2指定期序有误！": Exit Sub
    Windows("00 总表.xlsm").Activate
    ar = Range("e5:j" & Cells(2, "h"))
    For k = UBound(ar) To 1 Step -1
        If ar(k, 1) <> "" Then Exit For
    Next
    x = UBound(ar, 2): ReDim br(1 To k, 1 To x)
    For i = 1 To k
        If f2 = "" And h2 = "" Then
            If ar(i, 4) = c2 Then
                y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
            End If
        ElseIf f2 <> "" And h2 = "" Then
            If ar(i, 4) = f2 Then
                y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
            End If
        ElseIf f2 <> "" And h2 <> "" Then
            If ar(i, 4) >= f2 And ar(i, 4) <= h2 Then
                y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
            End If
        End If
    Next
    Windows("按指定期序提取相关数据.xlsm").Activate
    Worksheets("总表").Select
    h1 = Cells(1, "h"): [e5].Resize(h1 - 4, UBound(br, 2)) = br
End Sub