求助，如何通过VBA得出某一项目最新日期填报日期对应填报内容的值？

dc201010

实现通过B1、C1、D1下拉筛选(筛选值等于“网络填报表”第一行的某个单元格)，得出各个项目最新提交时间对应的开展情况、提交时间、实施阶段？
最新填报时间求助.rar (12.54 KB, 下载次数: 9)

2020-3-13 09:01 上传

点击文件名下载附件

orr89

用字典循环判断日期就行

dc201010

除去VBA外，用公式实现的方法也请指教下！！

大萝卜白菜

=INDEX(网络填报!B:B,MATCH(0,COUNTIF(A$1:A1,网络填报!B$1:B50),0))&""
除了项目名其他的都用lookup函数就行，别用vlookup

dc201010

大萝卜白菜 发表于 2020-3-13 09:41
=INDEX(网络填报!B:B,MATCH(0,COUNTIF(A$1:A1,网络填报!B$1:B50),0))&""
除了项目名其他的都用lookup函数 ...

好像不得行。

dc201010

自己顶一下

大萝卜白菜

dc201010 发表于 2020-3-13 09:54
好像不得行。

你要摁ctrl+shift+enter

dc201010

知道，数组嘛，结果不是我想要的

大萝卜白菜

dc201010 发表于 2020-3-13 11:10
知道，数组嘛，结果不是我想要的

Private Sub CommandButton1_Click()
Dim dic As Object, rng1

Sheets("筛选").Range("a2:d8").ClearContents

Set d = CreateObject("scripting.dictionary")

rng1 = Sheets("网络填报").UsedRange.SpecialCells(xlCellTypeVisible)
For i = 2 To UBound(rng1)
arrstring = rng1(i, 2) & "," & rng1(i, 4) & "," & rng1(i, 1) & "," & rng1(i, 3)
d(rng1(i, 2)) = arrstring
Next
n = 2

For Each s In d.items
Cells(n, 1).Resize(1, 4) = Split(s, ",")
n = n + 1
Next
End Sub
来个代码吧那

大萝卜白菜

Private Sub CommandButton1_Click()
Dim dic As Object, rng1

Sheets("筛选").Range("a2:d8").ClearContents

Set d = CreateObject("scripting.dictionary")

rng1 = Sheets("网络填报").UsedRange.SpecialCells(xlCellTypeVisible)
For i = 2 To UBound(rng1)
arrstring = rng1(i, 2) & "," & rng1(i, 4) & "," & rng1(i, 1) & "," & rng1(i, 3)
d(rng1(i, 2)) = arrstring
Next
n = 2

For Each s In d.items
Cells(n, 1).Resize(1, 4) = Split(s, ",")
n = n + 1
Next
End Sub