vba - Excel VBA 过滤和复制粘贴数据

标签 vba excel

给定一个数据集,假设有 10 列。在 A 列中我有日期,在 B 列中我有%。我想仅过滤 A 列 2014 年的数据,B 列 <70% 的数据,并将过滤后的数据复制粘贴到另一个工作表中。我该如何编写下一行的代码以获取第一行过滤数据?

ActiveSheet.Range("$A$1:$AR$1617").AutoFilter Field:=5, Operator:= _
xlFilterValues, Criteria2:=Array(0, "12/28/2014")
ActiveSheet.Range("$A$1:$AR$1617").AutoFilter Field:=14, Criteria1:="<0.7" _
        , Operator:=xlAnd

最佳答案

使用 Offset 方法,如下所示:

ActiveSheet.Range("A1:AR1617").Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy 

以上代码复制过滤后的数据(不包括 header )。
这就是你正在尝试的吗?

关于vba - Excel VBA 过滤和复制粘贴数据,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23673177/

相关文章:

excel - 删除/添加工作表事件 - VBA

VBA确定地址之前的单元格?

excel - 如何使用VBA设置一定范围内的背景颜色?

excel - 跨表搜索和条件替换

xml - 如何将工具提示添加到我的自定义 Excel 功能区 UI?

excel - VBA按钮事件处理程序实现

excel - 在单元格更改时自动执行 Excel 宏

ms-access - VBA 中 "with"子句的烦人问题

excel - 如何只循环一次组合

VBA - 工作表列表(超链接)