高级过滤器超链接

Question

使用高级过滤器在同一工作簿中的单独 wksht 上创建过滤器。列表范围内是具有超链接的单元格。高级过滤器打开，将所有第 1 行、第 2 行等都显示在工作表中。名为 Title 的列引入了没有附加超链接的字符串。如何将超链接与所有其他信息一起带到工作表上。

为清楚起见，下面的宏：

Sub Filterme() Filterme Macro 
' 
' 
  Sheet10.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, 
  _   CriteriaRange:=Range("FilterData!Criteria"), CopyToRange:=Range( 
  _ "FilterData!Extract"), Unique:=False

End Sub

Answer 1

与其使用Action:=xlFilterCopy，不如通过Action:=xlFilterInPlace获取过滤行的（可能不连续的）范围，然后在重置可见过滤器之前复制结果。以下代码使用位于A1:B2 范围内的条件对Sheet1 上的数据应用高级过滤器，影响从A7 开始的行，然后将过滤器结果复制到Sheet3，然后清除Sheet1 上的过滤器：

Sub FilterIt()
    Dim Rng As Range
    Worksheets("Sheet1").Activate
    Worksheets("Sheet1").Range("A7").CurrentRegion.AdvancedFilter _
        Action:=xlFilterInPlace, _
        CriteriaRange:=Range("$A$1:$B$2"), _
        Unique:=False
    Set Rng = Worksheets("Sheet1").Range("A7").CurrentRegion.SpecialCells(xlVisible)
    Worksheets("Sheet1").ShowAllData
    Rng.Copy
    Worksheets("Sheet3").Range("A1").PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
End Sub