请大神帮我看下这个呢

二十八画工

不用筛选可以自动出数据吗？

表1.zip (29.48 KB, 下载次数: 12)

2021-10-7 15:27 上传

点击文件名下载附件
表1.zip

李海嵩

=INDEX(表1!A:A,SMALL(IF(TEXT(表1!$F$2:$F$486,"emm")=TEXT($K$1,"emm"),ROW($2:$486),4^8),ROW(A1)))
典型的一对多查询：数组公式 右拉下拉

蔡伟仑

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$K$1" Then
  Application.EnableEvents = False
  Dim cnn As Object, sql$
  Set cnn = CreateObject("ADODB.Connection")
  cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
  sql = "Select * from [表1$a1:j] where 开始日期 between #" & Target.Value & "# and " & WorksheetFunction.EoMonth(Target.Value, 0)
  [A1].CurrentRegion.Offset(1).ClearContents
  [A2].CopyFromRecordset cnn.Execute(sql)
  cnn.Close
  Set cnn = Nothing
  Application.EnableEvents = True
  End If
End Sub

二姐煎饼

。。。。。
表1.zip (63.16 KB, 下载次数: 76)

2021-10-7 15:27 上传

点击文件名下载附件
表1.zip

灬多多益善

感谢感谢，对了，已解决

壹豪

大神，能帮我再看看最楼下的表格吗？我变化了一下。

谭杰

输入第二张表格黄色部份，第二张表自动出第一张表黄色部份起始日期包含该年月的欠款
新建 XLS 工作表 (4).zip (25.19 KB, 下载次数: 15)

2021-10-7 15:27 上传

点击文件名下载附件
新建 XLS 工作表 (4).zip