高级筛选中当条件区域为公式时不运行

7angerine · 发表于 2019-4-16 10:43

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
[明细!A2].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[A1:A2], CopyToRange:=[A4:H4], Unique:=False
End Sub

复制代码

使用了上述代码进行筛选，因为特殊原因 A2要写成=C2，然后筛选就不起作用
了有没有什么办法可以让A2=C2的情况下进行高级筛选

7angerine · 发表于 2019-4-17 08:18

1111111111

		自动登录	找回密码
密码			免费注册

[VBA程序开发] 高级筛选中当条件区域为公式时不运行