根据日期单元格引用多行，在线等

zhoujinai119

根据日期单元格引用多行，在表1  B3单元格输入日期后，自动引用表2中数据
或者反过来引用也可以
求大神指点，在线等

魂断蓝桥

Sub a()
    Dim arr, i%, a%, b%
    arr = Sheets("表2").[a2].CurrentRegion
    For i = 3 To UBound(arr)
        If arr(i, 1) = Sheets("表1").[B3] Then
            a = i + 1
            Do While arr(i + 1, 1) = ""
                b = b + 1
                i = i + 1
            Loop
            Exit For
        End If
    Next
    b = a + b
    If a = 0 Then Exit Sub
    Sheets("表1").[C3:R99] = ""
    Sheets("表2").Range(Cells(a, 2), Cells(b, "Q")).Copy Sheets("表1").[C3]
End Sub

1055751654

魂断蓝桥 发表于 2019-12-3 15:17
Sub a()
    Dim arr, i%, a%, b%
    arr = Sheets("表2").[a2].CurrentRegion

老师我刚试了下，等于最后一个日期的时候好像有点问题

media888

Private Sub CommandButton1_Click()
Dim i%, k
k = 3
a = InputBox("日期")
Sheets("表1").Range("a3:z1000").Clear
For i = 4 To 100
b = Format(Sheets("表2").Cells(i, 1), "mm-dd")

If b = a Then Sheets("表2").Range("a" & i & ":r" & i).Copy Sheets("表1").Cells(k, 2): k = k + 1

Next
End Sub

魂断蓝桥

1055751654 发表于 2019-12-3 15:39
老师我刚试了下，等于最后一个日期的时候好像有点问题

Option Explicit

Sub a()
    Dim arr, i%, a%, b%
    a = Sheet2.[b9999].End(3).Row + 1
    arr = Sheets("表2").Range("a2:q" & a)
    a = 0
    For i = 3 To UBound(arr)
        If arr(i, 1) = Sheets("表1").[B3] Then
            a = i + 1
            Do While arr(i + 1, 1) = ""
                b = b + 1
                i = i + 1
                If i = UBound(arr) Then Exit For
            Loop
            Exit For
        End If
    Next
    b = a + b
    Sheets("表1").[C3:R99] = ""
    If a = 0 Then Exit Sub
    Sheets("表2").Range(Sheets("表2").Cells(a, 2), Sheets("表2").Cells(b, "Q")).Copy Sheets("表1").[C3]
End Sub

zhoujinai119

谢谢各位！

zhoujinai119

不用VBA，就用公式能够解决吗

15810910132

3行公式：
=OFFSET(表2!$B$1:$Q$1,MATCH(Sheet1!$B$3,表2!A:A,0)-1,0)
4行公式：
=IF(AND(OFFSET(表2!$A$1,MAX(MATCH(Sheet1!$B$3,表2!A:A,0)-1+ROW(A1)),0)="",C3<>""),OFFSET(表2!$B$1:$Q$1,MAX(MATCH(Sheet1!$B$3,表2!A:A,0)-1+ROW(A1)),0),"")

5行从4行下拉就行，看你的需求不会太多行

数组函数，三键结束

一个函数就行，明天再改改了

1055751654

C3，右拉下拉=IFERROR(TEXT(INDEX(表2!B:B,AGGREGATE(15,6,ROW($4:$999)/(LOOKUP(ROW($4:$999),ROW($4:$999)/(表2!$A$4:$A$999<>""),表2!$A$4:$A$999)=$B$3),ROW(A1))),"[>]"),"")