VBA - 过滤器/剪切/粘贴

Question

我想知道如何在VBA语句列I

复制标准1

粘贴数据写入

1. 筛选标准1（销售总额）来K列在（净销售）
2. 过滤Criteria2柱I
3. 复印Criteria2
4. 粘贴数据列L

目前我的代码看起来是这样的：先人们

Range("A1:J1").AutoFilter Field:=9, Criteria1:="Gross Sale" 
Columns("2" & ":" & Range("J70000").End(xlUp).Row).Copy 

感谢。

Answer 1

尝试下面的代码中（修改 “Sheet6” 你的表名）：

Option Explicit 

Sub CopyFiltResults() 

Dim FiltRng As Range 

With Worksheets("Sheet6") ' modify "Sheet6" to your sheet's name 
    With .Range("A1:J" & .Cells(.Rows.Count, "I").End(xlUp).Row) 
     ' set range filter column I to "Gross Sale" 
     .AutoFilter Field:=9, Criteria1:="Gross Sale" 

     Set FiltRng = .Columns(9).SpecialCells(xlCellTypeVisible) 
     FiltRng.Copy .Range("K1") '<-- only copy visible cells to Column K 
     Set FiltRng = Nothing '<-- clear range variable 

     ' set range filter column I to "Net Sales" 
     .AutoFilter Field:=9, Criteria1:="Net Sales" 
     Set FiltRng = .Columns(9).SpecialCells(xlCellTypeVisible) 
     FiltRng.Copy .Range("L1") '<-- only copy visible cells to Column L 
    End With 
End With 

End Sub