答案 0 :(得分:1)
这是一种方法,可能需要稍作调整。
在excel中过滤表的问题是整个行都变得不可见。因此,有必要将两个表保持在两张单独的纸上或彼此下面的一张纸上。
如果table1
位于ws1
上,以下代码将根据table2
中过滤出的最高值过滤ws2
上的table1
。
Dim rng As Range
Set rng = ws1.Range("A2:A100").Rows.SpecialCells(xlCellTypeVisible)
Dim str As String
str = rng.Cells(1, 1).Value
With ws2.ListObjects("Table2")
.Range.AutoFilter Field:=1, Criteria1:="=" & str & "*"
End With
我知道此解决方案不能完全回答问题,但是也许有帮助。