Sub jiansuo()
'
' jiansuo Macro
'
'
Sheets("数据表1").Columns("B:H").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("数据表2!Criteria"), CopyToRange:=Range("数据表2!Extract"), _
Unique:=False
ActiveWindow.SmallScroll Down:=-27
End Sub
这是一个名为【jiansuo】宏的定义，实现自定义检索。
检索区域：“数据表1”的B~H列
检索条件：在“数据表2”中名为"Criteria"区域里
检索结果：放在“数据表2”中名为"Extract"的区域
检索设置：允许检索结果有重复，不需要Unique，另活动窗口的滚动条适当调整，方便查看。
Criteria、Extract为自定义的区域名称，Excel里请允许对某个单元格或某块选中的区域命名。【任选一块区域 —> 右击 —> "定义名称"】 即可定义名称。
检索区域：“数据表1”的B~H列
检索条件：在“数据表2”中名为"Criteria"区域里
检索结果：放在“数据表2”中名为"Extract"的区域
检索设置：允许检索结果有重复，不需要Unique，另活动窗口的滚动条适当调整，方便查看。
Criteria、Extract为自定义的区域名称，Excel里请允许对某个单元格或某块选中的区域命名。【任选一块区域 —> 右击 —> "定义名称"】 即可定义名称。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-12-16
就是高级筛选，几个参数：
筛选结果复制到：Extract
筛选条件：criteria
Extract、criteria应该都是定义的名称吧本回答被网友采纳
筛选结果复制到：Extract
筛选条件：criteria
Extract、criteria应该都是定义的名称吧本回答被网友采纳
第2个回答 2012-12-16
你这是自己录制的宏 吧？？？
