高级filter超链接

使用高级filter在同一工作簿中的单独wksht上创buildfilter。 在列表范围内有超链接的单元格。 先进的filter将所有行1，行2等带到工作表中。 名为Title的列引入没有超链接的string。 如何将超链接连同所有其他信息一起放到Sheet上。

下面的macros清晰度：

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:=xlFilterCopy获取过滤行的（可能不连续的）范围，然后在重置可见filter之前复制结果。 下面的代码将高级筛选器应用于Sheet1上的数据，该筛选器使用位于A1:B2范围内的条件影响从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