我被困在编写一个过滤列表的宏。我得到了一些结果,但不是我需要的。
这是一些描述我想要的伪代码。
Sub Filter1()
____Dim listOfRows As VBA.Collection
____Dim markForRemoval As VBA.Collection
____Dim row, column As Range
____Dim cell As Range
____
____Set listOfRows = New VBA.Collection
____Set markForRemoval = New VBA.Collection
____
____For Each row In F_RangeOfInterest()
________listOfRows.Add (row)
____Next
____For Each column In ActiveSheet.UsedRange.Columns
________If column.column > 2 Then
____________For Each row In listOfRows
____________Set cell F_GetCellFromIntersection( row, column )
________If true = F_CellHasContent(cell)
____________markForRemoval.Add (row)
________End If
________Next
________listOfRows = F_RemoveMarkes(listOfRows, markForRemoval)
____End If
____Next
____Application.ScreenUpdating = False
____For Each row In listOfRows
________row.hidden = true;
____Next
____Application.ScreenUpdating = True
End Sub
我未能在 VBA 中实现类似的东西。你能帮我把它执行吗?
编辑#1:我试图实现的目标有些混乱,所以我增强了伪代码。
编辑#2:我可以看到示例代码由于间距而看起来被破坏了。我添加了一些字符以使间距看起来更好。
这里还有一个屏幕来说明场景。黄线是我想使用上面的宏过滤的那些。